ceeeeecin 


EEE HHH NNN NNN GGGGGGGGGGGG 
EEE HHH NNN NNN GGGGGGGGGGGG 
EEE XXX XXX CCC HHH HHH NNN NNN 
EEE XXX XXX CCC HHH HHH NNN NNN GGG 
EEE XXX XXX CCC HHH HHH NNN NN GGG - 
EEE XXX XXX Lcc HHH HHH NNNNNN NNN GGG 
EEE XXX = XXX CCC HHH HHH NNNNNN NNN GGG mM 
EEE XXX = XXX CCC HHH HHH NNN NNN GGG a] 
EEEEEEEEEEEE Xx ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG a] 
EEEEESEEEEEE XXX ccc HHHHHHHHHHHHHHH_ NNN NNN NNN GGG mM 
EEEECEEEEEEE XXX ccc HHHHHHHHHHHHHHH NNN NNN NNN GGG 4 
EEE XXX XXX ccc HHH HHH NNN NNNNNN GGG  GGGGGGGGG a] 
EEE XXX = XXX ccc HH HHH NNN NNNNNN GGG G6GGGGGGGG a 
EEE XXX = XXX CCC HHH HHH NNN NNNNNN GGG 6GGGGGGGGG " 
EEE XXX XXX CCC HHH HHH NNN NNN GGG GGG 0 
EEE XXX XXX CCC HHH HHH NNN NNN 6GG GGG 0 
EEE XXX XXX CCC Hi HHH NNN NNN GGG GGG 0 
EEE NNN GGGGGGGGS P 
FEE NNN GGGGGGG4G P| 
EEE NNN GGGGGGGGG . 
P 
P) 


| 
HHH NNN NNN _ GGGGGGGGGGGG | 
GGG 


P| 
P| 
P 
P 
P 
Pp 
P 
P 
P 
R 
R 
R 
R 
R 
R 
R 
$s 
Ss 


**F ILE**1D**EXCPDP 
EEEEEEEEEE Xx Xx CCCCCCCC §«=PPPPPPPP DODDDDDD PPPPPPPP 
EEEEEEEEEE xx Xx CCCCCCCC §=PPPPPPPP DODDDDDD PPPPPPPP 
EE XX Xx CC PP PP DD DD PP PP 
EE UK Kx CC PP PP DD DD PP PP 
EE XX KX cc PP PP 0D DD PP PP 
EE XX XX cc PP PP 0D DD PP PP 
EEEEEEEE KK cc PPPPPPPP DO DD PPPPPPPP 
EEEEEEEE xe cc PPPPPPPP DD DD PPPPPPPP 
EE XX = KX cc PP DD DD PP 
EE XX = XX cc PP DD DD PP 
EE XX xx CC PP DD DD PP eee 
EE XX xx (CC PP DD DD PP eee 
EEEEEEEEEE Xx Xx cccccccc PP DODDDODD PP cece 
EEEEEEEEEE Xxx XX cccccccc PP DODDDDDD PP cece 
LL III] SSSSSSSS 
LL HI! SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL I] $$ 
LL I] SS 
LLELLLLLLLL T1111] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 


Be Oe Be Se Se Ge Se Ge Se Se Ge Ge Fe Se Se Ge Ge FH Ge FHF Ss Se Se Ss Se Se Se Se Ss Se Se Se Se Se Se Ge Se Ge Se Se Se Ge FH SH SH Ge Se Se Oe we 


XCHNG. SRC} EXCPDP. B32; 
MODULE exch$pdp ZTITLE "Small PDP-11 record structure routines’ 


DENT = ‘v04-000' 
DDR ESSING -MODE (EXTERNAL=LONG_RELATIVE, NONEXTERNAL=WORD_RELATIVE) 
= 


Small PDP-11 record structure routines 1B-se0-1984 93:14:88 pr Oi fag -32 V4.0-7 


at 


BEGIN 


PITITILITILILLLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL iLL LL iLL iii tii t Tl 
ie 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

ie THIS § SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY RDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOF TWAR — OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
* 
* 
. 
* 
* 
't TRANSFERRED. - 
+ 
* 
+ 
x 
* 
* 
® 
~ 
* 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

; 

1 !* He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
1 !e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
: ie CORPORA ION. 

1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
! !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WITTIITITITILILI LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL 


MEUM —O OONAUSWN “OO OONOUS WAN “OODONOUS wn 


WAAAIAWAIWAI AAI IPO POPPIN NPUNINYDD 2 2 OO Ow 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
DWONAUE WN $6 OONOUES WN S(O OONOU Sw 


FACILITY: EXCHANGE - Foreign volume interchange facility 
i ABSTRACT: Specific routines for record structures from small PDP-11 
: systems, RT-11 and DOS-11 
4 ; ENVIRONMENT: VAX/VMS User mode 
9 i AUTHOR: CW Hobbs CREATION DATE: 26-Aug-1982 
re rt : Split from RT11 module: 28-Nov-1982 
4¢ ; i MODIFIED BY: 
4 4 ! 
44 44 ! 
45 045 ad 
4 pee 
rts ne Include files: 
49 $069 MACRO $module _name string = *exch$pdp" 2; ' The require file needs to know our module name 
9 9090 REQUIRE *"SRCSTEXCREQ' ' Facility-wide require file 
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eas tbOD Module table of contents 14 et 7 93:4335 LEXCHNG SRE EXCPDP.B32; age 35 


ZSBTTL ‘Module table of contents’ 
H Module table of contents: 


FORWARD ROUTINE 
pdp_buffer_advance_read, 
pdp_buffer_advance_write, 
pdp_buffer_check : sb.rgrg. 
pdp_buffer_update : jsb_rer 
pdp_check gtx : NOVALUE, 
pdp_copy_Binary_record : NOVALUE, 


exchSpupziiteer. fitenames 


pdp_find_binary_record, 

pdp_find stream_record, 
exch$pdp_flush_write_buffer, 
exch$pdp_get, 

pdp_get_binary : 

pdp_get_fixed : jsb_get, 

pdp_get_stream : 
exch$pdp_put, 

pdp_put_binary : |sbzput: 


Read some more data into the ctx buffer 

Write some data from the ctx buffer 

Check the buffer 

Update the buffer prseeees in the context block 
Check the context block for consistency 

Copy a formatted-binary record 

Copy a record to a stream format record 

Remove invalid characters from a filename 

Find a formatted binary record in a given buffer 
Find a stream record in a g'ven buffer 

Flush my records waiting in the output buffer 
Get routine dispatch 

Get formatted binary record 

Get fixed-length record 

Get stream format record 

Put dispatcher 

Put formatted binary record 

Put fixed-length record 

Put stream format record 


PEXPE QDMA IIIT 


pdp_put_ fixed 
pdp_put_stream : 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: : 

: EXCHANGE facility routines 
1 EXTERNAL ROUTINE 

1 exch$io_dos11_read, 
1 exch$io_dos11_skip_record, 
1 exch$io_dos11_write, 

1 exch$io_rtil_read, 

1 exch$io_rtil_write, 

1 exch$rtTl_bad_file : NOVALUE, 
: exch$util_vm_allocate 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Read blocks from a sequential device 
Space over blocks on a sequential device 
Write blocks to a sequential device 

Read blocks from a random access device 
Write blocks to a random access device 
Erase an RT11 file because of error 

Get some virtual memory 


Equated symbols: 


RP AD AAD + tet try tet epee 2 PPR PRR RPS Or 


ctx Cctx$l_buf 


NORIAR Ps ss es ss es os aes sn ns a an sn in a an nn nn a ss a ss as a a a a a as as a a a ss 2 


QESRAVLSSELSSEANLSSSELSE ALAN AS SSIS ASA IAS SSIS ALATISSSGSEARA 


Be Se Be Fe Se Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se FHS Se Fe Se Os Be Se Se Se Se Ge Se Oe Se Oe Se Se Se Se Se Be Oe Se FHSS Se Se Gees 


SOOOOCOOCOCOCOCOCOCOCOCCOOCSOSCOCO SOOO SoOOOSOOOoOOoOOoOOo 


{LITERAL 
; Bound declarations: 
'BIND 
1 e 
: } Local macros 
1 MACRO 
1 ial $$show_context = $trace_print_fao ("cur !SL, byt !SL, eof !SL, base !SL, high !SL, wr_!SL', 
1 M -ctx Cctx$l_cur_block], .ctx etx) cur bytel, ctx Cctx$l_eof_ lock} 
f8 base_block], .ctx Cétx$T_ 


oo 


uf_high_block], =ctx"Cctx$l_high_block_wri 


. 
. 
. 
. 
. 
o 
7 
Oo 
. 
o 
7 
o 
. 
° 
. 
* 
. 
i 
. 
* 
. 
° 
. 
. 
. 
e 
7 
e 
. 
° 
° 
° 
7 
e 
. 
. 
° 
° 
° 
. 
e 
o 
° 
° 
o 
° 
e 
7 
. 
> 
eo 
. 
e 
. 
* 
. 
° 
7 
° 
. 
° 
7 
Y 
. 
* 
7 
° 
~ 
* 
7 
. 
2 
. 
o 
. 
e 
. 
o 
7 
e 
. 
o 
. 
e 
7 
e 
o 
a 
- 
e 
. 
e 
. 
e 
. 
° 
o 
o 
7 
o 
. 
e 
. 
i 
. 
° 
. 
° 
. 
o 
+ 
e 
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Ss 

e 

3 5. cnt ROUTINE pdp_buffer_advance_read (ctx : Sref_bblock) = ZSBTTL ‘pdp_buffer_advance_read (ctx)' 
5 lee 

' 


i FUNCTIONAL DESCRIPTION: 
Move the current block to the leftmost position in the buffer, and read in new blocks 

INPUTS: 
ctx = ctx pointer to context for an open RT11 file 

IMPLICIT INPUTS: 
none 

OUTPUTS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
true if success, false if any error 

SIDE EFFECTS: 

error conditions will be signaled 


OONONFUM—OD 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Sdbgtrc_prefix ("pdp_buffer_advance_read> '); 
LOCA 


Cs 
c 
—~ 
we 
o 
& 
° 
~- 
oe 


' Pointer to next byte in the buffer 
! => one past the end of buffer 
! Length of good part of buffer 


cs 

& ¢& 
~~ 

-® 
a> 
sa 
>. ¢ 


BIND 

ctx Cctx$l_buf_base_block], 

ctx Cctx$a_bufferJ, 

ctx ctxet cur byte) 
ctx$l_cur_b 


OONOA NEW 0 OONO VUES WIN 0 OONOAUE WN "OVO ONVNOUS WO 


: $ref_bblock 
: Sref_bblock 


o 

Cc 

ne | 
nnnnnnnn 

o 

- 

poe 


wn— 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


DONA WEAR OO DOONAN OO OODNOAU EWR OOO NOUSWN "OVOOVNOU SW) —00O 


PUPP EBS BS BS BB EBB EAN NII AIP PONIPURINPNPINUDY 2 2 9 OS 


Poronononopnononororfory 


| 
$trace_print_lit (‘entry'); 
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y0s pdp_bu op-1obe 12:29:07  LEXcHNG’SRESERCPDP 03>; ae 


<m 


D 
16-$ 
ffer_ advance read (ctx) 1228 


t $s 
fe es 
fs : 
i i 
rs f 
$i 75 
ee 
Bie e 
88 Ht 
ns 

91 0285 

i 
95 0 4 
% BB 
“8 
60 : 
a 
05 4 
06 

os 

i 

i : 
if 
5} ; 


Scheck_call (2, pdp_check ctx, .ctx, 441); ! S$block_ check (2, .ctx, (doslictx or rtilctx), 441) 
If the current block is at the beginning or the high block is EOF, we have made a grievous error 


$$show_context; 
Slogic_check (3, ((.cur GEQU .base) AND ((.cur LEQU ehigh+1) OR (.high EQL .base-1))), 214); 


: Get a pointer to the place to start shuffling, and a pointer to the first byte past the end of the buffer 
Slogic_check (2, (.buf NEQ 0), 181); 

buf_start = .buf + ((,cur - .base) * 512); 

bufend = .buf + ((i + .high - .base) * 512); 

buf_len = “yt ene - ,buf_start; 

Slogic_check (2,7(.buf_len CSSU 65536), 116); ! Short-sighted architects 

If current block is the base block, do some more looking. 


i (.cur EQL .base AND .high NEQ .base-1) ! initial condition 


BEGIN 
Strace_print_fao ("*cur is base* buf_start !XL, buf !XL, buf_len !XW, ctx$k_buffer_length !xw', 
“byt gpert buf, .buf_len, ctxSk_ us tor length): 
Slogic_check (3,~((.buf_start EQL TbufS AND (cbuf_len EQL ctx$k_buffer_length)), 215); 
: If there are non-null characters in the end of the buffer, then the record is too big and we have ane 
iF CHSNEG (0, .cur, .buf_len - .byt, .buf + .byt, 0) 
Sexch_signal_return (exch$_rectoobig, 2, .filb Cfilb$l_result_name_len], filb Cfilb$t_result_name]) 


OK, we have some data in the first block, and nulls to the end of the buffer. We will slide over the 


a ae et et a — 2s - 2 a = 2 Ss SS = os os ot Ss 


HG 

8 

‘J 

ts 

4 ' and refresh the end of the buffer, since stream and binary formats skip nulls. This is done so that w 
+ } handle a stream file with a Large number of zeroed blocks at the end. 
95 ELSE 
38 BEGIN . 
9 strece_prtat tit ("*slide one block*'); 

98 cur = high; ! Slide’ it to the end 

99 put ten = 512; ! One good block 

Ot END 

08 

ELSE 
¢ BEGIN 


: Current not the base, move the good data to the start of the buffer 


$trace_print_fao ("*cur not base* buf_start !XL, buf !XL, buf_len !XW°, .buf_start, .buf, .buf_len); 
if but _start NEQ .buf 


BEGIN 
$trace_print_lit ("shuffling data to the start of the buffer’); 
CHSMOVE (.buf_len, .buf_start, .buf); 


END; 


cst 


CONAN 


Wn 


wu 


~ ANN PEEP AAAS SSL ELLE EE 


~s 
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} Change the base pointer to show what we just did, buf_high_block is still valid 

base = .cur; 

Read a chunk into the buffer 

blks_in_use = .buf_len / 512; 

blks_to_read = ctxSk byt fer blocks - .blks_in_use; ! Blocks left in buf 

fea eet = .high) GTR ! Blocks Left in fil 
blks_to_read = MINU (.blks_to_read, (.eof = .high)); 


! If all of the blocks are in use, then we have no room to fit more data into the buffer. Return with a rec 
error, which our caller can examine. 


if -blks_in_use GEQU ctx$k_buffer_blocks 
RETURN exch$_stmrec fmt; 
S$trace_print_fao ("blocks in use !UL, blocks to read !UL, ctx$k_buffer_blocks !UL", 
eblks_in_use, .blks_to_read, ctx$k_buffer_blocks); 
$$show_context; 
Slogic-check (2, (.blks_to_read GTRU 0), 118); 
Perform the appropriate read operation depending on the volume type 


i vou Cvolb$b_vol_format] EQL volbSk_vfmt_rt11 


_ 


BEGIN 

IF NOT (status = exch$io_rt11_read ts , 
‘blks_to_read, 
-buf * .Buf_len)) 


ALL the rms stuff hangs from here 
First block to read 

Number of blocks 

Address of the I/0 buffer 


THEN 
RETURN .status; 
ND 
ELSE 
BEGIN 
LOCAL 
bp. ' Buffer pointer 
bc; ' Block count 
be = .blks_to_read; ' Number of blocks to read 
bp = .buf * .Buf_len; ! Address to put first block 
WHILE 1 
d0 


BEGIN 
Read from the tape 


Status = exch$io_dos!1_read ( .volb, ! ALL the stuff hangs from here 
-bp); ! Address of the I/0 buffer 


If the read didn't work, do some checking 
if NOT .status 


F ,° 
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4 THEN 

5 BEGIN 
6 IF _ ,status EQL ss$_endoffile 
i : -Status EQL ss$_endoftape 
0 

5 


a 
=. 2, = 


EGIN 
trace ~print. ase (‘registered END-Of-FILE'); 

$$show sent 

eof = MAX *y high + (.blks_to read = .bc))); ! Set the eof block to zero or mo 

Elis to read’ = .blks_to_ read = .Bc; i Adjust so that high block gets set right; 


ELSE 
RETURN .status; ! Return the error status 


Adjust our pointers 


bp = .bp + 512; ! Move to the next block 
39 END; 
END; 
99 


: Change the high block pointer to show what we just did 
high = .high + .blks_to_read; 


ooovono 
MEW —O Oe 
A=RINININININININUS & BEBE EF LVMNAOAOOCAAS 


0 
404 RETURN true; 
0405 
0406 END; 


| 
| 
| 
be = .bc = 1; 
IF .bc LEQ O THEN EXITLOOP; ' Exit if all have been read 
| 


TITLE te + Small PDP-11 record structure routines 
-IDENT \v04-00 

-EXTRN EXCHS$IO_DOS11_READ 

-EXTRN EXCHS$IO_DOS11_SKIP_RECORD 

«EXTRN EXCH$1O_D0S11 WRITE 

eEXTRN EXCHS$IO_RT11_READ 

eEXTRN EXCHSIO_RT11_ WRITE 

~-EXTRN EXCHSRTT1_BAD_FILE 
eEXTRN EXCHSUTIL_VM ALLOCATE 
-EXTRN PDP shee CTX, EXCHS$_BADLOGIC 
SEXTRN EXCA$_RECTOOBIG 
-EXTRN EXCHS_STMRECFMT 


-PSECT EXCHSPDP_CODE ,NOWRT,2 


OFFC 00000 ENTRY pop QUEER, ADVANCE READ, Save R2,R3,R4,R5,~ ; 0203 
B 900000 06 00 9E 00 MOVAB artes af : 
A 00 G 8F D MOVL § #EXCH$ BADLOGIC, R10 ; 
7 4 ac p 10 MOVL CTX, R? : 0248 
E 0189 8F 3C 00014 MOVZ2WL #441, -(SP) + 0261 


ee ee 
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a ca hutlet sieear feet ae yergee=} 38s PS:bbi3$ = Heche de sete pne 835¢ (3) 
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000000006 85 PR 88s Piet Me POP CHECK.CTX : : 
88 18 AP 09 HOV guia’) “Re a ; 0270 : 
me ii BRE gitt. cs 3 : 
$ Pp eeete Ot” sesstor 
3 1¢ 8S 2¢ N i 1$: SuBL actR?), : (R7), R3 ; 0271 : 
; g C ADDL3 Re, R3, BUF START : : 
0 A? D 4} MOVL. 48(R7). R : 0272 : 
0 9 Cc (A C3 4 SUBL3 44(R7). R9, RO : : 
8 0 09 4A ASHL 49, RO RO : ; 
9 0200 CO4B 95 ODKE MOVAB 512(ROSCR8], BUF _END ; : 
56 $2 C 3 SUBL3 BUF _START éuF END, BUF_LEN + 0273 : 
00010000 &F D1 00058 CMPL  BUF-LEN, #65536 : 0274 : 
B iF O05 BLSSU 2 : ; 
eee tS: a a ; ! 
PUSHL R10 : : 
6B : PB ire CALLS #3, LIBSSTOP : ; 
2c OA? 1C az D| 906¢ 2s: CMBL 2BiR », 44(R7) ; 0278 ; 
50 2c (OA? 1 ig 0075 SUBL3 #1, 44(R7), RO : : 
‘ Bie gg : : 
6(R7), BUF_LEN, RO : 0287 : 
a0 1¢ 3 “ 3789 $5 00083 us 6. @28(R7)> #0. RO, @36(R7)CRBI : 
13 00088 BEQL 3$ : : 
52 000000006 er 09 D0d8D MOVL HEXCHS_RECTOOBIG, TEMP ; 0289 
a a a : 2 
9 PUSHL @# : 3 
RR ae gee : : 
— 98 5 00 OOA MOVL TEMP, RO : : 
4 OOOAC RET : : 
1¢ «OA? 59 DO OOOAD 3S: MOVL  R9, 28(R7) + 0298 ; 
56 0200 f 3¢ 9081 MOV ZWL #512, BUF_LEN : 0 9 
58 : p e8 4$: CPL UF START, RB : 0309 : 
vC3 F_LEN, (BUF_START), (R8) : 0313 : 
ee a ae] LE 
33 e 50 ¢ ¢ at KS’ IN_USE, nt BCKS~TO_READ ; 0 34 3 
5 20 A , 3 CPL (R7) , "RO ; 0325 : 
53 20. A? 3 (8 9000 SUBL3 RY, 32(R7), R3 ; 0327 : 
31 : D D MOV BLKS JO_READ, R1 ; : 
3 p E CMP R1, R : 
; E BLEQU 6 : 
51 09 E MOV R3, R1 
2 1 6 £8 6$: MOVL R1, BLKS_TO_READ : 


H 8 
Ex Small PDP-11 record structure routines 16-Sep AX-11 Bi tee =32 v4.0-74 
vee the pdp_buffer_advance_ read ict t x) 12-598: 138 9}: 43: $9 LEX CHNG: SRC} EXCPDP.832; 
oC iH pI DOE 7$: HPL BLKS_ IN_USE, #12 
50 000000006 BF 00 i OVL #EXCHS_STMRECFMT, RO 
ele 
2 D008 8$: Ist LKS_TO_READ 
eiele 
7E 76 BF OA MOVZBL #118, -(SP) 
1 8 met fo 
FB 001 CALLS # L18SST0P 
14 =A 10107 9$ MOVL (r?), RS 
= 58 A : 1 E cHPB (R3), # 
6648 OF 1 PUSHAB (BUF_LEN)(R8) 
52 OD 00114 PUSHL BLKS TO_READ 
a St a 
000000006 EF Og Fe 11 CALLS EXCHS10. RT11_READ 
42 0 8 BLBS STAT 
54 5 DO 001 § 10$:  MOVL_ BLKS 10. READ, ab 
“s : BB 00190 118: PUSH amen "ya 
000000006 f Fe F } CALLS #2, e EXGHBIO. DOS11_READ 
00000870 &F D4 13 CPL STATUS. 43160 
00000878 8F : pi 149 CMPL STATUS, #2168 
51 52 4 ¢3 00148 128: SUBL 3 BC. BLKS_ TO_READ, R1 
9 CO OO14F ADDL 
: 1 1 é GEQ 136 
D4 001 CLRL eR 
20 a7 3! DO 00156 138:  MOVL 1, 32(R7) 
52 34 ‘ A SuBL2 BLKS_TO_READ 
55 0200 i 9 13 148: HOVAB 512(R5), BP 
30 i? : CO 00167 15% ADDL2 BLKS_TO_READ, 48(R7) 
50 0 p 16B MOVL #1, RO 
4 OO16E 168 RET 
; Routine Size: 367 bytes, Routine Base: EXCHSPDP_CODE + 0000 
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Haat ROUTINE pdp_buffer_advance_write (ctx : Sref_bblock) = 


ee 


i 
FUNCTIONAL DESCRIPTION: 


i 
i 
i 
r. 
i 
INPUTS: 
ctx = ctx pointer to context for an open RT11 file 
IMPLICIT INPUTS: 
i none 
i 
OUTPUTS: 
i none 
i 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true if success, false if any error 
SIDE EFFECTS: 
aa error conditions will be signaled 
Sdbgtrc_prefix (‘pdp_buffer_advance_write> °); 
Loce, 
biks to write, 
bu rt. 


f_Sta ' Pointer to next byte 
f“end, ! => one past the end o 

buf_len, ! Length of good part o 

status 

BIND 

base = ctx (ctx$l_buf_base_block), 

buf = ctx (ctx$a_bufferJ, 

cur = ctx Ectx$l_cur_block], 

eof = ctx [ctx$l_eof_bloc 

high = ctx Uctx$l_buf_4 ‘i block], 

filb = ctx (ctx$a_assodc $ref_bblock, 

volb = ctx Cctx$a_assoc_volb Sref_bblock 


Strace_print_lit ("entry"); 


AX-11 Bliss-32 V4.0-7 Page 9 
EXCHNG.SRCJEXCPDP. B30: (4) 


ZSBTTL ‘pdp_buffer_advance_write (ctx)' 


weiss the complete blocks in the buffer, then move the current block to the leftmost position in the 


SD, 


8 
pap buffer edvence write iets) Ieoseo-t9ge P3:35:65 — UNchne’sreSexceye-03271 chee 
Scheck_call (2, pdp_check ctx, .ctx, 458); ! Sblock check (2, .ctx, (), 458); 

; If the current block is before the beginning or the high block past EOF, we have made a grievous error 
Slogic_check (2, ((.cur GEQU .base) AND (.high LEQU .eof)), 242); 
How many full blocks do we have? 

blks_to_write = .cur = .base; 


! Get a pointer to the first partial block, the end of the buffer, and the Length from the first partial to 
; the end of the block 


$logic_check (2, (.buf NEQ 0), 194); 
buf_start = .buf + ((.cur - .base) * 512); 
fend = .buf + ((i + .high = .base) * 512); 


Bester check th tneut tee case 6536), 173); ! Short-sighted architects 
! Do a flush operation if necessary. The final partial block will be padded with nulls. 
if ((.ctx Cetx$v_flush)) ! Has a flush been requested 
(.ctx Cctx$l_cur_byte] NEQ 0)) ! And is there a partial block waiting 
BEGIN 
blks_to_write = .blks_to_write + 1; ! Adjust the block count for the partial 


ewer BLL (0, .buf_len = .ctx Cctx$l_cur_byte], .buf_start + .ctx Cctx$l_cur_byte]); 


: If we are flushing, set the eof block so that we may update the entry when we close (DOS-11 only) 
if (.ctx Cetx$v_flush)) 
. _ EQL -1) ! DOS-11 has -1 for an EOF block 


FRRRRRKLRRLLRRLLLRLKRRERRRRRRRRREEEE 
ans SAIS AF ANS SSRISAF 
wnr—O0 Mew Me 

= 7 4 


ARANLSSSLESBE 


SSLESE 


N 
$trace_print_lit ("flushing..."); 
$$show_context; 
gor = ,base + .blks_to_write - 1; 


PAA 


S$trace_print_fao (‘buf !XL, buf start !XL, buf_end !XL, buf_len !XL, blocks to write !UL’, 
-buf, .Buf_start, .buf_end, .buf_len, .blks_to_write); 
$$show_ context; 
: If no blocks, we don't have any more to do 
tf jbtks_to_write EQL 0 
RETURN true; 


: Write the front chunk from the buffer, operation depends on the volume type 
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Ss 


fer_advence write ( tx 


Wn 


SPEER 
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SS Ad- etd > to ad Ad ere wens eo 
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SN 
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Logic chec ((.bLks_towrite GTRU 0) AND (.blks_to_write LEQU ctx$k_buffer_blocks)), 174); 
§ syotb £55086. vol_format] EQL volb$k uvfmt rt tid — nen vee wee 


BEGIN 
If NOT (status = exchS$io_rtil_write ( — 
blk to_write, 


ALL the rms stuff hangs from here 
First block to write 

Number of blocks 

Address of the i/o buffer 


-buf)T 
BEGIN 
exch$rtl1_bad_file (.filb); 
RETURN .statuS; 
ND . 
BEGIN 
OCAL 
bl, ! Buffer Length 
bp. ' Buffer pointer 
bc; ! Block count 
bl = 512; ! Most blocks are 512 bytes 
be = .blks_to_write; i Number of blocks to wri 
bp = .buf; ! Address to find first block 
WHILE 1 
BEGIN 
See if we are writing a final, short block 
if ct Cctx$v_flush] ! Only if we are flushing 
a EQ. 1 ! And if we are writing the last block 


ir gots Cctx$l_cur_byte] NEQ 0 ! And if the block is partial 
bl = .ctx Ccetx$l_cur_byte]; ! Then the length is that partial 
Write to the tape 
status = exchSio_dosi1_write ( .volb, ! ALL the stuff hangs from here 
“bp ' Address of the 1/0 buffer 
bls; Length of the 1/0 buffer 
If the write didn't work, mark the buffer as empty before returning 
if NOT .status 
THEN 


BEGIN 
cur = sbeee + (.blks_to_write - .bc); 


Probably ss$_endoftape 


Set cur to high block written before error 
Say that base is the current 

Say that no bytes in last block 

Backup one record 


ctx fotx si"; byte) = 0; 
exch$io r kip_ a cond (.volb, -1); 
Return the error status 


RETURN Tstatus; 
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Adjust our pointers 


Ss 
5 


be . bp + it ! Move to the next block 
IF .b¢ LEQ 0° THEN EXITLOOP; ! Exit if all have been read 
END; 

END; 


If we have exceeded the previous high water mark, save the new mark 


temp = (.base + (.blks_to_write-1)) 
iF temp GTRU .ctx CctxSi“high_ block written] 


ctx Cctx$l_high_block_written] = .temp; 
; Move the good data to the start of the buffer 
CHSMOVE (.buf_len, .buf_start, .buf); 
: Change the base pointer to show what we just did, buf_high_block is still valid 


EEE EERE ESS 
SELESRELLSSELES 


base = .cur; 


SSSSsssssssss 


Change the high block pointer to show what we just did 
high = MINU ((.high + .blks_to_write), .eof); 


$trace_print_lit (‘context at exit"); 
$$show_context; 


RETURN true; 
END; 
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CONOULS WO 


OFFC 00000 .ENTRY PDP_BUFFER ADVANCE WRITE, Save R2,R3,R4,R5,-; 0407 

R6,R7,R8,R9,RIO,RIT : 

f 04 C3 00 SUBL2 #4 sé : 
gs A MOVL Hh : 0453 

A C AB OE MOVAB alka), R10 : 
E O1CA oF C 900 MOVZWL #458, =(SP) + 0465 

DD 0001 PUSHL R F 

000000006 00 0 FB 14 CALLS PDP_CHECK_CTX ; 
éh 10 ABO 1B CMPL sstra. =(R10)~ + 0469 

07 1F OOOTF BLSSU ; 

20 AB 30 Ag pt 1 CMPL 48(R8), 32(R8) : 

13 18 6 BLEQU ; 

7E F2 BF OA 1$: MOVZBL ‘ 42, -(SP) : 

1 DD C PUSHL ; 

000000006 8F DD PUSHL ARNCHS, ADLOGIC ; 

000000006 09 3 Fe CALL Sst OP F 
52 1c (OA AC 2$: SUBL tRiob. (RB), R2 > 0473 


a 8 
Exc P Small PDP-11 record structure routines 16-Sep-19 11:4 AX-11 Bliss-32 V4.0-74 Pa 13 
05-000 pdp_buffer_advance_write (etx) < 12286871382 93235388 YEXCHNG SRe EXCPDP.832; = (4) 
52 D 4 MOV R2, BLKS_TO_WRITE : ; 
38 18 Af s ‘3 ROVE din), RO ; 0478 : 
7€ C2 BF 9A 00049 MOVZBL #194, =(SP) ; : 
1 0D 00040 PUSHL # : : 
000000006 8F DD O004F PUSHL #EXCH$_BADLOGIC ; : 
basal. ; 3 5B bose ss: kent 98 Ree Hie £9479 
9 ¢ é ADDL RI, RO, BUF START : : 
8 30 A fp 7 , suBL (R10) 4B (RB) RO + 0480 ; 
; 0200 C049 9% MOVAB #35 (Ro Rg, BUF _END : : 
57 28 C SUBL3 BUF_START éyF END, BUF _LEN : 0481 : 
00010000 &F D1 0007 CMPL BUF-LEN, #65536 : 0482 : 
13°s«#«WF 7 BLSS 3 ° 
7E AD f 9A 20 MOVZBL #173, -(SP) : : 
000000006 8F DD-000 PUSHL EXCH BADLOGIC : : 
000000996 00 Fe 008 CALLS #3, LIBSSTOP : : 
2c 28 OA E1 00093 4$: BBC "2 40(R8), 6$ + 0486 : 
24 Aa D3 0098 STL g (RB) + 0488 : 
es 06 0090 INCL BLKS TO_WRITE t 0492 : 
50 57 24 «OA ¢ 009F SUBL 3 (RB), “BUF _LEN, RO + 0494 : 
50 00 6E 34 Bare 2 BOOM movcS #0, (SP), #0, RO, @36(R8) (BUF _STARTI ; : 
28 A 08 E1 OOOAC 5$: BBC a2 40(R8), 6$ > 04 : 
FFFFFFFF © 8F 20 As D} 00081 CPL 3e(R8), nei + 0501 : 
* e 2 
50 6A 6 cf 00088 ADDL3 BLKS TO_wRITE (R10), RO + 0506 : 
20 AB FF AO D00BF MOVAB =-1(RO),~32(R8) : ; 
56 05 000C4 6$: TSTL BLKS_T0_URITE + 0515 : 
oocs 31 o00c8 Bru tS 
0c 56 D1 000CB 7$: CMPL LKS_TO_WRITE, #12 : 0521 ; 
13 18 DOOCE BLEQU : ; 
7E AE f 9A 90000 MOVZBL #174, -(SP) : 
000000006 8F DD 00006 PUSHL #EXCHS BADLOGIC : ; 
000000006 Q FB 000D CALLS #3, LIBS$STOP : : 
14 =A p E3 8$: MOVL Oi ), > 0522 : 
0 58 A E CMPB (R2). # : ; 
12 000EB BNEQ $ : : 
0240 F 6B ED PUSHR #*M<R6,R9> ; 05 § 3 
eS) pu gat Be) | 
000000006 Ef é F fa CALLS #4, EXCHSIO_RT11_WRITE : ; 
4 0 D FC MOVL RO. STATUS ; : 
es 10 AS DD Oot08 pit, feengs’ ; 0532 
000000006 EF of FB 001 CALLS ‘i, EXCHSRT11_BAD_FILE Sous 3 
0200 &8F : 10E 9$: MOVZWL #512, BL : 0343 ; 
SB Se ROME Bytsgpecemie. Be) |: 
A E1 00119 10$: BBC #2, 4O(R8), 118 : 3 ; 
“ ” Of f D1 OO11E CMPL~=sé@B, #1 : Mee ; 
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Sbec008 pdp_buffer_advance_write (ctx) 122808- 1383 93:35:08 LEXCHNG. SRE EXCPDP:o3004 (4) 
09 12 001 BNEQ 1$ : ; 
24 AB ; rst (R8) + 0557 : 
6E 24 As 00 001 MOVL 6(R8), BL ; 0559 : 
t Be OOise |e obueth  Bhncno rsp + 0383 : 
000000006 EF : FB 001 CALLS #3, EXCH$10_D0S11_WRITE : : 
4 D0 001 MOVL R STATY : ; 
4 EB OO13A BLBS_ STATUS, 13$ ; 05 9 : 
50 €3 001 SUBL3 C, BLKS_TO WRITE, RO : 0572 ; 
1c OA 6A Ci 00141 ADDLS = (R10), RO 38 (RB) : : 
6A 16 A dO 146 MOVL : CRBS, (R10) + 0573 ; 
24 AB D4 OO14A CLRL (RB) + 0574 F 
7E CE 0014 MNEGL #1, =(SP) + 0575 ; 
DD 001 PUSHL ; : 
000000006 fF FB 1 CALLS #2, EXCH$10_D0S11_SKIP_RECORD : ; 
0 i ; 12$: mOVL STATUS, R : 0576 : 
55 0200 ; i 15D 138:  MOVAB  512(R5), BP : 0581 : 
4 F5 0016 SOBGTR 8C, 10 : 058 ; 
50 6A 6 C1 00165 148:  ADDL3 BLKS_TO_WRITE, (R10), RO > 059 ; 
D7 00169 DECL TEMP : : 
34 AB 0 D1 00168 CMPL TEMP, §2(R8) + 0591 ; 
04 1 O16F BLEQU 15$ : F 
34 AB 9 p 0171 MOVL. TEMP, 52(R8) : 0593 ; 
69 68 g 0175 15$:  MOVvC3 8 F_CEN, (BUF_START), (R9) + 0597 : 
6A 1¢ AB DO 00179 MOVL (RB), (RI + 0601 : 
50 56 30 a8 C1 00170 ADDL3 48(R8) BLKS_TO_WRITE, RO + 0605 ; 
20 AB 50 D1 00182 CMPL RO, 32(R8) : F 
04 18 0186 BLEQU 16$ : ; 
50 20 A8 DO 001 MOVL 32(R8), RO ; ; 
30 AB 50 00 018¢ 168: MOVL RO, 48(R8) : : 
50 01 »D 0190 17$: MOVL #1, RO > 0610 : 
04 0019 RET : 0612 : 
; Routine Size: 404 bytes, Routine Base: EXCHSPDP_CODE + 016F : 
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a Re stctoncemenet: hemeteen 1eseont9ge 93:29:09 — LENcHNG SRE SERCPDP-B3e; foes 
1 t's ROUTINE pdp_buffer_check (ctx : Sref_bblock, out_filb : Sref_bblock) : jsb_r2r3 = ZSBTTL ‘pdp_ 
ie 
i FUNCTIONAL DESCRIPTION: | 
: Handle the situation of buffer overflow by either writing some blocks or signalling EOF. 
INPUTS: 
; ctx = Output file context block 
out_filb = Output file block 
: IMPLICIT INPUTS: 
none : 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true if success, false if any error 
SIDE EFFECTS: 
ie error conditions will be signaled 
Sdbgtrc_prefix (‘pdp_buffer_check> '); 
REGISTER 
tmp 
$debug_print_lit (‘entry'); 
If the EOF block is in the buffer | 
pe Cctx$l_buf_high_block] GEQU .ctx Cctx$l_eof_block] 
: Don't have any more room at the inn 
Sexch_signal_return (exch$_rtouteof, 2, .out_filb Cfilb$l_result_name_len], out_filb Cfilb$t_result_name 
: Otherwise, write some data and recursively retry the put 
ELSE 
6 FF NOT (tmp = pdp_buffer_advance_write (.ctx)) 
3 THEN 
"greet in in Ti a a i a Sa aT a ATO SEN iP aA a af | CI arab te ial apace ee Ta 1 — 
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EXCHSPDP Small PDP-11 record structure routines 1bes Sep-1 AX-11 Bliss-32 V4.0-7 Page 16 
fbec000 pdp_buf fer_check 14-Sep 5-19 382 93: $930 EXCHNG.SRCJEXCPDP. B32: . (5) 
B- on 70 RETURN .tmp; 
3 § 71 RETURN exchépdp. put 0; ! And then try it again 
$ Me END; 
3 1 7 
s 74 END; 
eEXTRN EXCHS_RTOUTEOF 
20 A2 30 A2 01 00000 PDP_BUFFER_CHECK:: 
MPL 48(CTX), 32¢CTX) 3 0657 
1C 1 0000 BLSSU 1$ 3 
52 00000000G 8F 44 000 MOVL spout oF RTOUTEOF, TEMP 3 0662 
A A F SOE PUSHAB 90(OUT FILB) 3 
A A3 DD 0001 PUSHL 58(OUT— FItB) : 
9 ) 00014 PUSHL #2 $ 
DD 316 PUSHL TEMP 3 
000000006 99 o 43 001 CALLS #4, LIBSSIGNAL 3 
0 2 00 OO01F MOVL TEMP, RO 3; 0667 
05 ppg RS8 3 
52 DD 00023 1$: PUSHL (CTX : 0668 
FEG2 CF 01 FB 000 5 CALLS #1, PDP_BUFFER_ADVANCE_WRITE : 
05 50 €E9 0002A BLBC - 2s 3 
0000V CF 00 fe 0002D CALLS #0, EXCHSPDP_PUT : 0671 
05 000 5 2$: RSB : 0674 


; Routine Size: 51 bytes, Routine Base: EXCHSPDP_CODE + 0303 
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Small PDP-11 record structure routines 16 “se -1984 AX-11 Bi ies -32 V4.0-7 Page 17 
pdp_buf fer_update ~Sep-1986 93: 39:6 LEX CHING” SRC} EXCPOP. B32: (6) 
br? 1 scent ROUTINE pdp_buffer_update (ctx : Sref_bblock, next_buf) : jsb_r2r3 = ZSBTTL ‘pdp_buffer_update' 

oe 


INPUTS: 


ctx - Output file context block 
next_buf = New current record pointer 


IMPLICIT INPUTS: 


cme me meme ares meme meesecms armas eemceessm meses eraceeesemeeso Gy 
m 


ctx Cctx$locur_b Lock) it tRp / sHivel2)” + .ctx Cetx$l_buf_base_block]; 
RETURN true; 


none 
6 
06 OUTPUTS: 
tle 
06 none 
06 
3928 IMPLICIT OUTPUTS: 
069 
9943 none 
0700 ROUTINE VALUE: 
0701 
re true if success, false if any error 
A SIDE EFFECTS: 
0706 error conditions will be signaled 
0707 -- 
0708 
394 $dbgtrc_prefix (‘pdp_buffer_update> '); 
711 REGISTER 
Ne sivetd. 
0714 “the 
4A 
p78 $debug_print_lit (‘entry'); 
ae Si 1 Update the next record position 
0 vel2 = 512 
1 fivetz check, (e. (.ctx ctx$a. puffer NEQ 0), 201); 
§ tmp = .next_buf - hn ap “% “buf tees : Save the’ ‘updated position for the next put 
Z ctx Cetx$l_cur_ by te 
é 
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FUNCTIONAL DESCRIPTION 
Update the current byte information in the context 
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EXCHSPOP Small PDP-11 record structure routines 16-Sep-1984 11:4 AX-11 iss- 4.0-74 
Sbec008 pdp_buf fer_update 1$-sep-1984 923936 LEXCHNG SRE EXCPDP Oe, a ms 


53 DD 00000 PDP_BUFFER —tageag |g 


PUS R : 0675 
53 0200 BF 3 3 MOVZWL #512, FIVE12 : 0926 
1 Ag D TSTL 4(CTX) + 0721 
1 A BNEQ : 
7E C9 «BF OA MOVZBL #201, =(SP) : 
000000006 BF pb» 001 PUSHE — #EXCHS_ BADLOGIC : 
000000696 00 Fe 1 CALL A} LIB$S ; 
0 : 18 «OA ¢ 1F 1$: L3- 24¢CTX), NEXT _BUF TMP : 07 2 
7E 0 A 6 EMUL #1, TMP. #0, =(SPS : 07 
51 1 78 0029 EDIV FIVE12, (SPS+, R1, R1 : 
mA 1 00 000 MOVL R1, 36(CTX) : 
5 ; C6 90 DIVL2 FIVE12, RO + 0724 
tee 2¢ B240 SE 000 MOV a44(CTX)CROJ, 28(CTX) : 
ae 1 OO boo8e Moto «oa? SP : 0788 
65 00041 SB ; 
; Routine Size: 66 bytes, Routine Base: EXCHSPDP_CODE + 0336 
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Small PDP-11 record structure routines 16- 500-1984 9}: 34:6 AX-11 Bliss-32 V4.0-74 
pdp_check_ctx -Sep-1984 12:29:0 EXCHNG.SRCJEXCPDP.B32; 
4 9 1 to ROUTINE pdp_check_ctx (ctx : Sref_bblock, code) : WOVALUE = ZSBTTL ‘pdp_check_ctx’' 
f ? ‘i 
f 5 FUNCTIONAL DESCRIPTION: 
4 5 Check for a valid context block 
f INPUTS: 
7 § i ctx - Output file context block 
oy code - Error code to use if the check fails 
rg IMPLICIT INPUTS: 
re none 
ve OUTPUTS: 
be none 
as IMPLICIT OUTPUTS: 
1B | Sdn 
Of8s ROUTINE VALUE: 
238 none 
3 SIDE EFFECTS: 
re to error conditions will be signaled 
76 
He Sdbgtrc_prefix ("pdp_check_ctx> '); 
07 
07 
Bf 
7 
7 
7 


VO 
oo 
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LOCAL 
size, 
type 
BIND 
filb = ctx (ctx$a_assoc_filb : Sref_bblock, 
volb = ctx Cctx$a_assoc_volb : Sref_bblock 


Sdebug_print_lit ("entry"); 
: The context block must exist 
= gets EQL 0 
Sexch_signal_stop (exch$_blockcheckO, 1, .code); 
: Now look for either an RTIICTX block or a DOSTICTX block 
IF .ctx Cetx$b_type) EQL exchblkSk_rtiictx 
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9 


1$-Seo-1964 01:11:46 


pdp_check_ctx 
7 THEN 
7 BEGIN 
7 8 1F_.ctx Ceotx$w_size] NEQ exchblk$s_rtlictx 
7 THEN 
7 BEGIN 
7 size = exchblk$s_rtiictx; 
136 type = exchblkSk_rtlictx; 
mR pezch.s gnal_stop (exch$_blockcheck, 6, .code, .ctx, 
795 END 
fist IF .ctx Cetx$b_type) EQL exchblk$k_doslictx 
13 BEGIN 
79 IF _.ctx Cctx$w_size] NEQ exchblk$s_dosiictx 
00 THEN 
01 BEGIN 
§¢ size = exchblk$s_doslictx; 
it type = exchblk$k_doslictx; 


Seco 
Se 


PIII) at et et at ot 
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vv 
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02 09.09 Gd Gd Cd Cd Cd Cd C9 Cd Cd Cd Cd Cd CD Cd CD Cd CD Cd CD 09 09 0D CD CD CD. 


Sexch_signal_stop (exch$_blockcheck, 6, .code, .ctx, 


ie Bliss-32 V4.0-74 
EXCHNG.SRCJEXCPDP.B32; 


-ctx Cctx$w size], .size, .ctx Cctx$b_typel], .t 


-ctx Cctx$w size], .size, .ctx Cctx$b_type], .t 


Sexch_signal_stop (exch$_blockcheck, 6, .code, .ctx, .ctx Cctx$w_size], .size, .ctx Cctx$b_type], .type) 


I a EQL 0 
Sexch_signal_stop (exch$_blockcheckO, 1, (10000+.code)); 
IF . -filb CfilbSw_ size] NEQ exchblk$s_filb 
-filb CfilbSb_type] NEQ exchblk$k_filb 


N 
$exch sign L_stop (exch$_blockcheck, 6, (10000+.code), .filb, 
Tilb CfT filb 


lb$w_size], exchblk$s_ 
filb$b-typeJ, exchblk$k_filb); 


sfilb 
IF .volb EQL 0 
THEN 
Sexch_signal_stop (exch$_blockcheckO, 1, (20000+.code)); 
IF _ .volb Cvolb$w_size] NEQ exchblk$s_volb 


-volb Cvolb$b_type] NEQ exchblk$k_volb 


N 
wench. si "fat hte (exch$_blockcheck, 6 (20000+.code), .volb, 


volb$w_size), exchb 


-vo $_vo 
volb$b-type), exchbLk$k-volb); 


-volb 


4 
» 
és 
4 
ts 
END 
END 
ELSE 
BEGIN 
size = exchblk$s_rtiictx; 
type = exchblk$Sk_rtlictx; 


~EXTRN EXCHS_BLOCKCHECKO 


H 9 
STS LLAfiyf rovre strecture rovetnen a ewig UH) HEAL ANGI 


~EXTRN LIBSSTOP, EXCHS_BLOCKCHECK 


001¢ ENTRY poe CHECK_ CTX, Save R2,R3,R4 
54 000000006 00 9 MOVAB LIBSSTOP, 
1 4 at D MOVL ties 1 
05 1 BNEG 8 
08 A DD F PUSHL ove 
3 OA H A 12 1$ SCV ZBL (R1), R3 
F4 FF 3 3 18 CMPB RS. #2h4 
A 1 1C BNEQ 3 
0082 8F 08 Al 2 IE CMP (R1), #130 
is ai pea; 
FC OOS 53 91 2$ CMPB RS, #252 
12 1 C BNEQ 3$ 
008A 8F 08 A : E CMPW cR1), #138 
1 BEQL $ 
52 8A BF OA MOVZBL #138, SIZE 
5 FCO A 003A MOV ZBL We 2, TYPE 
52 82 8F 9A S03 3$: MOVZBL #130, SIZE 
5 F4 8F 9A 000 OVZBL #244, TYPE 
0 DD 00048 4s: PUSHL TYP 
OC 6B PUSHR #*M<R2,R3> 
7E 08 Al 3C 0004 MOVZWL 8(R1), =<SP) 
51 DD 0005 PUSHL 1 
08 AC dd 0005 PUSHL CODE 
3C 11 0005 BRB 9 
50 10 «Al 09 00057 S$: MOVL 16(R1), RO 
0B 12 00058 BNEQ 7$ 
7E 08 aC 00002710 &8F 5) 050 ADDL3 #10000, CODE, -(SP) 
C 11 00066 6$: BRB 11$ 
0358 ««&F 08 A 8! 00068 7$: CMPw = =s-« (RO), #859 
0 : BNEQ 8$ 
FA SF OA Ad 9 CMPB Cae #250 
1E 13 0007 BEQL si $ 
7E FA 8F 9A 00077 8S MOVZBL # 0 
7E A AO 9A 0007B MOVZBL 10(RO), GP) 
7E 03 8 8F 3C 0007F MOVZWL ow 59. =(SP) 
7E 08 ad 3C 00084 MOVZWL 8(ROS, -(SP) 
50 0D PUSHL RO 
7E 08 ac 00002710 BF C1 A ADDL3 #10000, — -(SP) 
46 11 33 98: BRB 14$ 
50 14 Al D 10$: MOVL “ (R1), 
15 1 99 BNEG $ 
7E 08 AC 00006E20 BF C 9B ADDL3 #20000, CODE, -<(SP) 
1 DD O00A4 118 PUSHL #1 
000000906 8F DD 000A6 PUSHL wexcH XCHS BLOCK CHECKO 
64 3 FB OOOAC CALLS #3, 
04 OOOAF RET 
0418 8F 08 A 8] BO 12$: CMPW Hg) . #1051 
0 : B6 BNEQ 4 
F3 oS OA AQ 9 CMPB —s«10(RO), #243 
é 135 0008 BEQL 15$ 
7E F3 OF gh BF 13$ MOVZ2BL #243, -(SP) 
7E 0A AO 9A 000C MOVZBL 10(R6), -(SP) 


Pe Se Se Se Se Se Se Se Se Ge Ge Ge Fe Ge Se Ge Ge Fe Sse Ge Ge Ge Ge Ge Fe Se Ge Be Be Ge Se Be Be Se Ge Ge Se Ge Se Se Ge Be Se Se Be Se Ge Se Se Se Se Se Se Fe Se 


EX( 
v0 


VOs-000" <a 6 Raped pects t one at n$35-188e $3:39:09 — EXcimoe sae Sexceve-32+1 a i 
C7 


43 0618 8F 3 MOVZWL #1051, =(SP) ; 
ag C C MOVZWL 8(RO), =(SP) : 
D D PUSH R : 
7E 08 ac sis FC D ADDL #20000, CODE, -(SP) : 
6 0D DB 14$: PUSHL 3 
00000000G 8F ODD PUSHL age BLOCKCHECK 3 
64 08 FB OOOE CALLS #8, LIBS$STOP : 
04 O00E6 158: RET 3 0838 


; Routine Size: 231 bytes, Routine Base: EXCHSPDP_CODE + 0378 
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pdp_copy_binary_record 


ies? ae Rar eee ae 


w$ep-198e {2:29:09 — LNcincs SneSexceoe83e; took 


= 
ef 


GLOBAL ROUTINE _copy_binary_record (in_len, in.buf : $ref_bvector ZSBTTL ‘pdp_copy_binary_record’ 
, pep.copy : Sut_buf : $ref_bvector) : NOVALUE = a - 
§ BEGIN 
754 % 
f 5 FUNCTIONAL DESCRIPTION: 
f : § Copy the input record to a buffer, reformatting it as a valid formatted-binary record. 
135 INPUTS: 
ret 2 in.len = Length of the input record 
106 2 in-buf = address of the input record 
764 34 IMPLICIT INPUTS: 
765 54 
a 2? none 
5 OUTPUTS: 
39 
5 


~ 
3 
coco 9D 


out_buf - address of the output buffer which receives the formatted-binary copy of the input 


771 

77 Bee IMPLICIT OUTPUTS: 

77 50g 

46 86 none 

77 Be ROUTINE VALUE: 
none 

80 SIDE EFFECTS: 

rai HG 
none 


Sdbgtrc_prefix ('pdp_copy_binary_record> '); 


Sooo 
Set ted te 
Ooooo 


ANNAN 
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33 S333 Ses 


7 
787 REGISTER 
7 ip, ' Input pointer 
789 op ! Output pointer 
i aes | 
neg_chksum : ° 

738 ; chet : BYTE ! Current character 

eB. 

a 5 sentinel = out_buf fo} : WORD, ! Sentinel word, first two bytes of the output 
ade length = out_buf : WORD ! Length word, next two bytes 

S $debug_print_fao (entry, len=!UL, bufl0:19]=""!AF'", .in_len, 20, .in_buf); 

§ 3 : Initialize our local data segments 

ba 9 op = .out_buf; ' Qutput buffer pointer 

05 94 ip = .in_buf; ! Input pointer at the start of the record 

95 chksum = 0; 


Small PDP-11 record structure routines 16-Sep-1984 AX-11 Bliss-32 V4.0-7 P 4 
pdp_copy_binary_record 16-50-1984 93: 43: $9 EXCHNG.SRC EXCPDP.B32: — B 


<m 
ex 


H Put the sentinel and Length words in the buffer 


sentinel = 1; 
ength = .in_len + 4; 


H Prepare the checksum from the first four bytes 
DECR c FROM 3 TO 0 
chksum = .chksum + CHSRCHAR_A (op); 
Start grabbing bytes 
IF .in_len GTRU 0 
_— c¢ FROM .in_len=-1 TO 0 


eS Ss St 


MEIN OOD NOUE WN OOONOUS wn 


BEGIN 

char = CHSRCHAR_A (ip); ! Read the new character and advance the input pointer 
chksum = .chksum + .char; ! Add this byte to the checksum 

CHSWCHAR_A (.char, op); ! Move it to the output and advance the output pointer 
END; 


: Store the negated checksum 
— = -.chksum 


Se Sr Ge Se Fe Se Se Ge Se ee Fe Ge Se Ge SH Se Se Se Ge Se Ge Ge Se Se Se Se Se Ge Ge Se Ge Se Ge Se oe 


— oO 
DDDD5555<6 
ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee eee ee ee eee 


CH CHR t -neg_ chksum, -Op); ! Move it to the output 
RETURN; 
END; 
00 00 sENTRY PDP_ yy BINARY_RECORD, Save R2,R3,R4 ; 0839 
53 oc (OA 02 00 ADDL3 te T_BuF, R3~ ; 0886 
A 0 va N’BUE. “IP ; 0894 
CLRB th 3 $38 
MOVW #1, @0UT BUF : 0899 
4 11 ADDW3 #4, IN. LEN, (R3) : Soon 
3 18 MOVL ; 0904 
1 19 18: ROVZBL (Ob), R4 ; 0906 
4 1¢ ADDB R4, CHKS : 
3 1F SOBGEQ C, 1$ : 
HF ' STL N_LEN ; 0910 
1 BEQL $ ; 
At VL N_LEN, C ; 0912 
B BRB $ : 
28: VB (IP)+, CHAR ; 0916 
ADDB2 CHAR, CHKSUM ; 0918 
Vv CHAR, (OP)+ ; 0920 


SEEMS? | SaULstesTs geet gruetre rovetnes Ee AUIS) UBGAMSUAENGHENESTA Pome 
f | Oo RS OEP iia cee a. 


; Routine Size: 64 bytes, Routine Base: EXCHSPDP_CODE + 045F 


a 9 
Small PDP-11 record structure routines -Sep-1 :11:4 AX-11 Blisg-32 V4.0-74 
pdp_copy_stream_record 122888- 1382 93:45:08 EEXCHNG. SRE EXCPDP.832; 


GLOBAL ROUTINE pdp_copy_stream_record nm, lon, jngbyt Sref_bvector, ZSBTTL ‘pdp_copy_stream_record’ 
uf ; 


<m 
ex 


Sa 
53 


roe 


$debug_print_fao (‘entry, len=!UL, buf(0:19]=""!AF'", .in_len, 20, .in_buf); 
: Initialize our local data segments 


op = .out_buf; ' Qutput buffer pointer 
ip = ,in_Buf; ' Input pointer at the start of the record 
char = 0; ! Preset for the later test, in case 0 length input 


Start grabbing bytes 
if .in len GTRU 0 


3; 6G | 
. & i out. f_bvecfor) = 3] 
; 845 BEGIN 3 1 
i Bey 5 §i* E | 
5 8 | ¢ | FUNCTIONAL DESCRIPTION: ; 
; ° i Copy the input record to a buffer, reformatting it as a valid stream format record. The length of t : 1 
; § ; ; output record is returned. : 
; - i : : 1 
: Bez INPUTS 2] 
; 855 ! in.len = Length of the input record Bl 
; § $ 2 in_buf = address of the input record : , 
; 858 § ¢ | IMPLICIT INPUTS: | 
: Bé i ; 

i AT frcaitece : 
; +4 Bay : OUTPUTS: : 
; 86 26 i out_buf - address of the output buffer which receives the stream format copy of the input, including 3: 
: B65 9337 H record terminator(s) : 
: 86 55 2 | IMPLICIT OUTPUTS: 1 
3 Bes ' 31 
3 5 ! none 3 1 
3 B28 ! 3 1 
; 2 : ROUTINE VALUE: ; | 
; O36) The Length of the output record, including terminator ; ' 
; r¢ | SIDE EFFECTS: 
; none ; 1 
: : 71 
; 3 1 
3 3 1 
H REGISTER 3 1 
3 ip. ! Input pointer 2 | 
3 Op. ' Output pointer : 
; ol, ! Output length 2 | 
; char : BYTE ' Current character 
. : { 
4 : 


Sdbgtrc_prefix ("pdp_copy.stream_record> '); 


EXCuSroP Small PDP-11 record structure routines 16-Sep-1984 9}: 34:66 ee Oi iegeze V4.0-74 Page Ss 


pdp_copy_stream_record p-1 EXCHNG.SR PDP .B32; 
3 THEN 
; DECR ¢ FROM .in_len=1 TO 0 
; BEGIN 
3 5 § | Read the character and clear the high bit 
: 5 char = CHSRCHAR_A (ip); ! Read the new character and advance the input pointer 
: 4 char <7,1,0> = 0; ! Clear the high bit 
; : ; Now Look at the character and do something with it 
; 3 SELECTONEU .char OF 
oe Be oe 
: 915 1 : (NUL, DEL, VT) : 
3 aig 1 3 
; 9 1005 
; 218 1908 COTHERWISE) : 
; 91 1 CHSWCHAR_A (.char, op); 
; 920 1008 
; 921 1009 TES; 
3 3 ; 1010 
3 Z ’ 1} END; 
3 5 : 18 : If the final char was either a form feed or a Line feed, we are done. Otherwise add the <CR><LF> pair 
: 9 5 ists if ((.char NEQ LF) ! Line feed 
; 928 1 16 AN 
3 9 : : (.char NEQ FF)) ! form feed 
: 931 1919 BEGIN 
; 9 § 1 ? CHSWCHAR_A (CR, op); 
; F 1 CHSWCHAR_A (LF, op); 
; 9 1 ¢ END; 
; 935 1 
; 3 : 3 : Calculate the final Length 
; 938 $ ol = .op = .out_buf; 
; bat % 3 $debug_print_fao (‘output len !UL, record([0:19) “"!AF’", .ol, 20, .out_buf); 
: ge 1080 RETURN .ol; 
:; 94 1031 END; 
009¢ 0 -ENTRY PDP_COPY_STREAM_RECORD, Save R2,R3 3; 0931 
50 08 as D 0000 MOVa IN_BuF, IP ; 098 
52 94 000 CLRB CHAR 3; 098 
04 af ) op TSTL N_LEN 3; 098 
20 1 0B BEQL $ 
53 04 Ag D 0D MOVL N_LEN, C ; 0989 
17 1 11 BRB $ 3 
52 80 90 00013 1$: MOVB (IP)+, CHAR ; 0995 


Small PDP-11 record structure tines 1 
v04-000 pdp_copy_stream_record esa npg tes 1 
52 80 F 8A 00016 
13 QOOIA 
0B ; 7 001C 
9 1 O1F 
7F aS 1 021 
81 9 00057 
i 2 83388 
i 7 gate 
0c g 7 0 
$) OA0D 8? 8 $8 
50 1 0c AC f 003C¢ 
4 00041 
; Routine Size: 66 bytes, Routine Base: EXCHSPDP_CODE + 049F 
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4128, CHAR 

CHAR, #11 

CHAR, #127 

2s 

CHAR (OP) + 

CHAR, #10 

4$ 

CHAR, #12 


#2573, (OP)+ 
OUT_BUF, OP, OL 
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EXCHSPOP Small PDP-11 record structure routines 1b-Se $1984 01:11:4 AX-11 Bliss-32 V4.0-74 Page 29 
v04-000 Sustlinds, Piiter Pilocaee 12-98-1382 9333936 LEXCHNG SRCJEXCPDP.B32: " 8) 
; 3? } § 5. cet ROUTINE exch$pdp_filter_filename (nam_len, mam_start) = %SBTTL ‘exch$pdp_filter_filename’ | ‘ 
3 309 1034 lee : 
; ac8 1035 : ‘ 
3 Bep : $ FUNCTIONAL DESCRIPTION: | : 
3 331 } 8 Scan filename, removing characters which are invalid. The string will be modified in place. ; 
Be ; 1040 ! INPUTS: ; 
; 954 1041 ; : 
3 999 1 § : nam_len = Length of the name ‘ 
3 328 : ? nam_start - starting address of the filename : 
: 958 1045 2 | IMPLICIT INPUTS: : 
; 959 1948 : ; 
: 960 104 : none : 
; 961 1048 : ; 
3 306 1049 ! OUTPUTS: : 
; 96 1050 : - ; 
; 964 1051 : the name string is modified in place ‘ 
; 965 1926 ' ° 
; 6 105 ! IMPLICIT OUTPUTS: ; 
; 96 1054 ! : 
; 968 1055 : none . 
; 969 1996 : : 
; 970 105 ! ROUTINE VALUE: : 
; «971 1058 : : 
3 ar 1059 ! none : 
; 1060 : ‘ 
3; 974 1061 ! SIDE EFFECTS: 3 
; 975 1908 : : 
; 976 106 : none : 
3; 977 1064 feo : 
; 978 1065 ; 
; 979 1066 $dbgtrc_prefix ('exch$pdp_filter_filename> ‘); : 
; 980 1067 : 
; 981 1068 : 
3 O86 1069 REGISTER 
; 98 1070 ip, ' Input pointer 
3; 984 1071 op. ' Output pointer 
; 985 176 char : BYTE ! Current character 
; 986 107 : 
3; 987 1074 
3 443 ' fe $debug_print_lit ('entry'); 
; 990 1079 IF (.nam_len EQL 0) ! Nothing to do in this case 
: 991 1078 
; 99 + 44 RETURN .nam_len; 
; 99 1080 
3 Boe 108 : Initialize our local data segments 
; 9% 10 : ip = .nam_start; ! Input pointer at the start of the buffer 
; p44 : : op = .ip; ! Output pointer starts at the beginning 
3 399 1 DECR Len FROM .nam_len - 1 TO 0 
; 1000 1 
; 1001 1088 BEGIN 


———— — 
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Small PDP-11 record structure routines 16-Sep-1984 9 : 
exch$pdp_filter_filename 14-Se 4 


1 4 char = CHSRCHAR_A (ip); 
1 


: § AX-11 Bliss-32 V4.0-742 Page 30 
EXCHNG.SRCJEXCPDP.B32;1 (10) 


2 


SSeSS858 & 


SELECTONE .char OF 


5 C'A’ TO '2", ‘0’ TO '9") : 
9 CHSWCHAR_A (.char, op); 
94 COTHERWISE) : : 
95 TES; 
END; 
Return the Length 
RETURN .op = .nam_start; 


Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge ae 
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000C $0008 -ENTRY EXCHSPDP_FILTER_FILENAME, Save R2,R3 ; 1032 
53 04 AC 00 0000 MOVL NAM » R3 : 1077 
04 12 00006 BNEQ : 
50 53 dO 00008 MOVL R3, RO ; 1079 
04 00008 RET : 
50 08 AC 00 0000C 1$ MOVL NAM_START, IP : 1083 
51 50 D 8 1 MOVL P, OP 3: 1084 
1c (11 1 BRB ; 1086 
$6 § 90 00015 2$ MOVB (IP)+, CHAR ; 1089 
91 sf CMPB HAR, #48 ; 1092 
2 1F 00018 BLSSU : 
39 2 91 O35 CMPB CHAR, #57 ; 
g 18 0 BLEQU ; 
41 8F 91 00022 3$: CMPB HAR, #65 : 
9 1F 000 8 BLSSU : 
5A BF ¢ 91 88 CMPB HAR, #90 : 
2 1A 0002C BGTRU : 
81 é 90 QO0ZE 4$ MOVB CHAR, (OP)+ : 1093 
4 535 F4 00031 5$ rT LEN, 2$ ; 1086 
1 08 Ac Ce 00 SUBL NAM_START, R1 ; 1100 
50 51 00 00038 MOVL R1, RO : 
04 00038 RET : 1102 
; Routine Size: 60 bytes, Routine Base: EXCHSPDP_CODE + 04E1 
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pdp_find_binary_record 1 ~Sep-19 4 12:29:0 LEXCHNG. SRE EXCPDP.832;1 i) 


1103 1 GLOBAL ROUTINE pdp_find_binary_record (filb : Sref_bblock, buf_start, %SBTTL 'pdp_find_binary_record' 
11 1 uf_end : $Sref_bvector, new_start) = 


— 
— 
wn 


FUNCTIONAL DESCRIPTION: 
Scan buffer from start to end (if necessary) looking for a single formatted binary record. The addr 
length of the record are copied to the record buffer pointers in the filb. The address of the next 
unscanned byte is returned. 
INPUTS: 
filb = pointer to the filb which contains the active record stream 
buf_start = starting address in buffer to scan 
buf_end = one past the highest valid buffer address 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
new_start - receives address of first unscanned byte 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


amainiad a ~ eta record ‘placed’ in filb, all is weli 
0 


e - at end of buffer without finding complete record 
k_bad_fmt - problem with record format 

k_too_big - record exceeds length of output buffer 

k_chksum = computed checksum differs from stored checksum 


SIDE EFFECTS: 
none 


$Sdbgtrc_prefix ('pdp_find_binary_record> '); 


REGISTER 
ip. Input pointer 
re) Output length 
eob, End of buffer 


Check sum accumulator 
Negative of checksum for compares 
Current character 


: BYTE, 
neg_chksum : BYTE, 
char : BYTE 


Sdebup_pr ing tit (‘entry’ 


): 
Sblock-check"(2, .filb, filb, 495); 
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H Initialize our local data segments 


ip = .buf_start; ! Input pointer at the start of the buifer 
eob = .buf_end; ! End of buffer pointer one past the end of the buffer 
Skip any null bytes at the start of the record 
dO 
BEGIN 


Check for the end of the input buffer. We make sure that the entire header is in the buffer 
IF .ip+4 GEQU .eob 
RETURN findbin$k_eob; 
Read the character and advance the pointer 
char = CHSRCHAR_A (ip); 
END 
UNTIL .char NEQ 0; 
A formatted binary record has a word containing 1 followed by a word containing the length of the data + h 
IF (.char NEQ 1) OR (CHSRCHAR_A (ip) NEQ 0) 
RETURN findbin$k_bad_fmt; 
Get the length, and initialize the checksum 


ol = (BIND Len = -ip : WORD; .len) = 4; ' Interpret datum at input pointer as a word 
chksum = 1 + CHSRCHAR_A (ip) + CHSRCHAR_A (ip); ! Checksum is 1 plus the two bytes of the length word 


: Although we use locate mode, lets do a sanity check and refuse oversize records 
if .ol GTRU filb$s_record_buffer 

RETURN findbin$k_too_big; 
: Make sure that the entire record plus the checksum byte are present in the buffer 
if (.ip + .ol + 1) GEQU .eob 
THEN 

RETURN findbin$k_eob; 
! Point the filb record information at the record we have found 


P 

] 

filb Cfilb$a_record] = .ip; 
filb Cfilb$l=record_lend = .ol; 
1 


Calculate the checksum, then negate it 


DECR count FROM .ol-1 TO 0 DO chksum = .chksum + CHSRCHAR_A (ip); 
neg_chksum = -.chksum; 


a ee ee ce me ee ee ce ce ee ce ce ee ce ee ee ce ee ce ce ee ee ce ce ce ee ee ce ce ce ce ce ce eee ee ce ee ee ee ce ee ee el ee ee eed ee 


-—— 


eee SSS , ed 


vet“acb omy Pa gt record structure routines 18-50 =3007138% 9}: }: 4g AX-11 Bliss-32 V4.0-7 Page 423 


nd_binary_record 14-Sep-1 EXCHNG.SRCJEXCPOP. B32: 
1 ; Get the stored checksum from the end of the record 
i Saey = CHSRCHAR_A (ip); ' Get the stored checksum 
¢ new start = .ip; ! Send back the start of the next record 
IF_.neg_chksum NEQ .char 
THEN 
BEGIN 


' The RSX/VMS ye tt ity FLX has been calculating incorrect checksums for records longer than 255 bytes. I 
i to include the hi gh order byte of the Length in the checksum. If the checksum is correct when we assu 
that this has occurred, accept it as correct. 


$debug_ print_fao ("Record Lengsh ‘UL, checksum '0B, calc chksum !0B", .ol, .char, .neg_chksum); 
= .chksum = ((.01+4) 56); ! Pretend we never added the high byte 

—e chksua = ~eehkoun 

IF gnegachksun NEQ -char 


WAAL AI ANIA PORonononononond | 


$debug_print_fao ("Record length !UL, checksum !0B, calc chksum !0B', .ol, .char, .neg_chksum); 
AL “findbin$k_chksum; 


END; 
—_ findbin$k_success; 


Se Se Oe Se Se ee FH Se Se Se Os Oe FH Ss oe Se OHSS SH Ss SH ee Oe SH Ss Be 
a at a Ls os SS SY os os SS SS SS SS SH St 
ta 8 a bb _ a _d —9 4 _s bp —) 4 4 5 9 _ a 4 _ 9 


WOME BELLE LES 
ee ee ee ee ee ee ee ee 


PPI 


MOO ODNOUESWN S(O CONOULS Win 


AYVilWn—O0ONOUS wr —O0@ 


INI E ES 


~EXTRN EXCHSUTIL_BLOCK_CHECK 


01FC 00000 ENTRY PDP FIND _BINARY_RECORD, Save R2,R3,R4,R5,- ; 1103 

57 04 AC dO 00002 MOVL at R + 1158 
52 O35B00FA a b0 9006 MOVL  #56295674, R2 F 
51 O1EF F C 00000 MOVZWL 3 
50 57 D0 0012 MOVL R ; 
000000006 EF if 9001 JSB EXCHSUTIL_BLOCK_CHECK ; 

50 08 AC 00 00018 MOVL §BUF_START; IP : 1168 

52 C AC DO OO01F MOVL § BUFEND, £08 + 116 

51 04 AO i: 00 : 1$: MOVAB 4(RO), R1 + 1172 
52 1 D1 000 CMPL R1, EOB ; 
1E OO02A BGEQU 5$ : 

54 9 00 C MOVB (IP)+, CHAR : 1178 

F2 1 F BEQL 4=é1$ : 1182 

01 54 91 00031 CMPB CHAR, #1 3: 1186 
5 12 000 BNE 2$ : 
51 0 7 0 MOVZBL {1P)+, R1 ; 

50 4 3 2$: MOVL #4, RO > 1188 
4 E RET : 

1 0 ' F 3$ MOVZWL (IP), OL > 1192 
1 4 § SUBL2. #4, OL : 

5 A MOVZBL (1P)+, RS > 1193 
6 A 0004 MOVZBL (IP)+ R6 : 
: 01 A64 : 48 MOVAB. 1(R6)(R5), RB ; 
5 5 MOVB  R8, CHKSUM : 


; Routine Size: 175 bytes, Routine Base: EXCHSPDP_CODE + 051D 


H 10 
EXCHSPDP a PDP-11 record structure routines 16 Sep-1 AX-11 Bi ies -32 V4.0-74 Page 
rated o Find b nary_record 1 $7368 382 93: 43: $9 EXCHNG. $RCI EXCPDP .B832; : 
00000200 = &F 1 01 3 CMPL » #512 ; : 
0 a oe : : 
Be F RET : : 
38 01 A140 ; 4$: MOVAB 1(OL)CIPIJ, R6 ’ : 
at prety fg tm : : 
50 1 B0 A 5$: MOVL » RO : : 
4 D RET ; : 
4g A7 0D $ 6$: MOVL IP, 70(R7) : ‘ 
42. A? 1 0 MOVL OL, 66(R7) : : 
52 1 p 7 MOVL COUNT : : 
3 p 9a 00078 7$ move. (IP)+, R5 ; : 
5 80 ore ADDB CHKSUM ; ; 
F7 é F4 1 8$ SOBGEQ e UNT, 7$ : : 
52 BE 000 NEGB  CHKSUM, NEG_CHKSUM ; : 
54 0 087 MOVE (IP)+, CHA ; : 
10 Bt p 90 A MOVL IP, @NEW START ; : 
4 | 008E CMPB = sNEG_ ruse CHAR : : 
19 13 00091 BEQL ; : 
51 04 CO 00093 ADDL ; : 
31 00000100 BF C6 00096 Dives | #e56" RI ; : 
53 51 009D SUBB2 =R1, CHKSUM ; : 
52 53 8E OO0A0 MNEGB = CHKSUM, NEG_CHKSUM ; : 
54 52 91 O00A3 CMPB NEG_CHKSUM,~ CHAR : : 
04 13 000A6 BEQL 9$ ~ ; : 
50 02 00 900a8 MOVL #2, RO ; : 
04 QOOAB RET : ‘ 
0 D4 OOOAC 9S: CLRL = RO ; : 
4 OOOAE RET ; ; 


m 
=< 
- 


= 


2 


eB ed ed od dd od od dd 


ee ee ee ee  ___.__.._.. ee ee eee ee ee SY 
FU HOSS VEAP AVL O OHIO RRA DODO NON PU OSRNOU RIOD UR ARO oS oe 
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pdp_find_stream_record 1 =3007 1382 93335:88 LEXCHNG SRC EXCPDP.B32; 9435 


rh ! GLOBAL ROUTINE pdp Find strese_recoré (filb : oral meloek, buf start, ZSBTTL ‘pdp_find_stream_record’ 
ure = 


Sdbgtrc_prefix ('pdp_find_stream_record> '); 


1 
124 buf_end™: Sref_bvector, new_star 
1245 BEGIN 
see § °° 
i ‘3 | FUNCTIONAL DESCRIPTION: 
125 i Scan buffer from start to end (if goongeery® looking for a single stream record. The reformatted 
: 1 record is copied to the record buffer in the filb. The address of the next unscanned byte is return 
i § i INPUTS: 
1055 2} buf_start - starting address in buffer to scan 
1 § : buf_end = one past the highest valid buffer address 
! filb - pointer to the filb which contains the active record stream 
1 35 i IMPLICIT INPUTS: 
1260 ; 
1261 ; none 
1 $¢ : 
} o7 : OUTPUTS: 
: 65 new start - receives address of first unscanned byte 
1 7 i IMPLICIT OUTPUTS: 
1268 : 
1 4 : none 
1270 : 
' f ROUTINE VALUE: 
127 i findstm$k_success - record placed in filb, all is well 
1274 : eee ku uctrl2z_eof - “2 at start of record 
1275 : eob - at end of buffer, no record found 
127 } k_no_term - reached end of buffer in middle of record 
: 4 k_bad_fmt - record exceeds length of output buffer 
127 i SIDE EFFECTS: 
1280 : 
q : none 
1 lene 
1 
1 
1 
1 LOCAL 
: status 
1289 2. ~ 
1 REGISTER 
1291 ip. ! Input pointer 
1 35 op, ! Output pointer 
129 ° ; Dutput ength 
1294 eob, ! End of buffer 
! 95 char : BYTE ! Current character : 
i 3 $d ns int_lit (C'entry') 
ebug_prin ntry'); 
1599 5 SolockoPheckn tae “Fite tikb, 429): 


10 

EXCHSPDP Small PDP-11 record structure routines 1b-$e 1984 01:11:4 AX-11 Bliss-32 V4.0-74 P 

Fbec000 pan Pind caren fosera 1 736871382 93335:88 LEXCHNG. SRE EXCPDP: 83074 age 36 

: Set address of the filb record to the start of the filb record buffer 

§ filb Cfilb$a_record) = filb Cfilb$t_record_buffer); 

Initialize our local data segments 

et filo Cfilb$t_record_buffer); ! Gutput pointer to the filb buffer 
p 


' Output length starts at zero 
eob buf_end; 
status = findstm$k_success; 


1 
4 
1 
1 
1 


Ww 


oo 


-buf_start; i Input pointer at the start of the buffer 

! End of buffer pointer one past the end of the buffer 
Start grabbing bytes 

Sdebug_print_fao ("ip !XL, eob !XL, ol !XW, char "!AF'", .ip, .eob, .ol, 1, .ip); 

WHILE T p p .) p 


BEGIN 
Check for the end of either of the buffers 


if ie GEQU .eob ! If the input pointer is past the end of the input buffer 


BEGIN 
a as EQL 0 ! If the output length is still zero 
status = findstm$k_eob ! then end-of-buffer without any record 


VEN OC OONAOUSWN “OOOO 


status = findstm$k_no_term; ! otherwise record without terminator 
bell 


IF .ol GTRU filb$s_record_buffer ! If the output length is gtr than the buffer (the buffer ac 
THEN ! has an extra guard byte at the end so no overrun problem) 


EGIN 
status = findstm$k_bad_fmt; ! Our status is bad format record 
EXITLOOP; 


: Read the character and clear the high bit 


WAU AWA AAAI ROPUPINIPPIPINID 2 = 


SODNANE WN $9 OBNA UNE WN (OC OONOULS WR O 


char = CHSRCHAR_A (ip); ' Read the new character and advance the input pointer 
char <7,1,0> = 0; ! Clear the high bit 


: Now look at the character and do something with it 
SELECTONEU .char OF 
SET 


CNUL, DEL, vT) H 


CCTRLZ) ! Control/z marks end of file if the first char 
IF .ol EQ. 0 
THEN 


ee ee ee ce el ce ee ee ce ce De et ee a ec ee ee ee ee ee a ed ce ee ce ee ce ee ed ee ed aed 
y a = 
NO 
ee ee en nn ne ne ee ee ee ee ee ee ee ee ee ee ee ee ee 


RE oat a RES 


BHF FAA AAAWIA AAA BE BAMA BPR LES 


AVF WN —OVOONOufewh— 


PAIN) 


voe~008" pap. find. streancrecord vue “outines Set 72:29:08 — LEXcrnc- sae Sexcpb030+1 Page 133 


BEGIN 
status = findstm$k_ctrlz_eof; ! Fine, no record 
EXITLOOP; 


N 
ELSE 

or 

CHSWCHAR_A (.char, op); 
ol = .ol + 1; 


ee 


w WI OOO NOOR IS 


a | 


CFF] : 
EGIN 
CHSWCHAR “A (.char, op); 
ol = 60 3° 1; 
BXITLO 
END; 
CLF] : 
BEGIN 
IF .ol GTRU 0 
THEN 
BEGIN 
—_ (.op-1) EQL cr 
ol = .ol - 1; 
EN 
EXITLOOP; 
END; 


BVI SSBIRAR LOO 


COTHERWISE) : 
BEGIN 


CHSWCHAR_A (.char, op); 
ol = .ol + 1; 


Be Se ee Be Se Se Se Ge Ge Ge Se Se Ge Ge Ge Ge Fe Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Ss Se Se Sees tee 
ee a ec ee ee ee ed ed ed ed od ed dd od td 
ee ee ak ed ed ed ed ed dd dd dd wd wd dd sd to 


=PIPIMIPINPININPINIANMA ES & EWA BNI BF PAS BB PWIA BT 


END; 
TES; 
i END; 
8 3 filb Hibst_re record. len] = .ol; 
14 99 egies 
ig 230 $debug_print_fao (‘record "!AF'’, len !UL, status !UL", .ol, filb Cfilb$t_record_bufferJ, .ol, .status); 
i 186 A »Status; 


at ae Fit FIND_STREAM_RECORD, Save R2,R3,R4,R5,R6 


i 03509074 i iH Hoan 4, R2 


Ove 
MOVZWL 
MOVL 


ose 


3; Routine Size: 


oy ap. record structure routines 


pdp_ 


168 bytes, 


nd_stream_recor 


ot 


33 


53 
55 


55 
00000200 + 8F 


7F OB 


81 
1 BC 
wf 


Routine Base: 


zp OOHRS 


oC 


80 


: 


: 
4 
0 
F 
6 
4 
1 
4 
8 
4 
9 
2 
4 
1 
6 
4 
7 
4 
2 
A 
4 
5 
1 
4 
: 


MON S$ WS" SI PS OO 0D $9 "UI Bh | FOO LOOMO 


FF 


IN WII 


| 
: 
: 
: 


f£ooo-o 


EXCHSPDP_CODE 


ba 


1 
1 
5 
i 
4 
7 
9 
D 
; 


DIMI & & & 
OOBNLSMVN*OIOL "M8 yS 


ooo 
oO 


SOOOCOQCOOCOCOOSOGOGOOOOOOOOOOOOoOoCoOO 


So 
® 


° 
ooo 
INO oO 
fon O0 


10 
6-5 
-Sep-1 


1$: 


2$: 
3$: 


4$: 


ep-1 


Be 12:29:09 


AX-11 Bliss-32 V4.0-74 
EXCHNG.SRCJEXCPDP.B32; 


XCHSUTIL BLOCK. CHECK 
46iR6) R 
, 70(R6) 


RO, 7 

RO. OP 

UF_START, IP 
F END, E08 


#2, STATUS 
#3, STATUS 
OL #512 

+e STATUS 


(IP)+, CHAR 
#128, CHAR 


AR, #11 
AR, #127 


9-20 
ATAITrSA 


= 
> 
Zz 
Ea 
™m 
oa 


#1, STATUS 
CHAR, #12 
— (OP) + 


Qooznao 
fn—-er 


-1(0P), #13 
8$ 

L 

$ 

CHAR, (OP)+ 

7 

IP, @NEW START 


OL, 66(R8) 
STATUS, RO 


Se Se Se Se Se Ge Ge Se See Se Ge Ge Ge Ge Fs Fe Fe Fe Ge Se Ge Ge Ge Ge Ge Se Be Se Se Be Se Be Ge Fe Se Se Ge Se Ge Ge Be Be Se Be Be Ge Se Se Se Fe Se Se 


EX 
vo 


Ex P Small PDP-11 record structure routines 16 Sep-19 X-11 Bliss-32 V4. EX 
§bec008 exch _flush_write_buffer (etx) “320-1944 9}: 43 $9 LEXCHNG’ SRED EXCPOP: $33: Page 43) vo 


sont ROUTINE exch$pdp_flush_write_buffer (ctx : $ref_bblock) = ZSBTTL ‘exch$pdp_flush_write_buffer 
lee 


FUNCTIONAL DESCRIPTION: 
External entry to call buffer flush routine 


VEWUN OOS NOULS WO 


i INPUTS: 

! ctx = ctx pointer to context for an open RT11 file 
; IMPLICIT INPUTS: 

1 none 

: i OUTPUTS: 


i IMPLICIT OUTPUTS: 

i none 

i ROUTINE VALUE: 

i true if success, false if any error 
i SIDE EFFECTS: 

i error conditions will be signaled 


1 
4 
1 
' 
1 
1 
' 
i] 
1 
' 
1 
' 
none 
' 
] 
' 
i] 
1 
1 
t 
] 
' 
' 


= 
Ft ak ee th eh Ue ee aa aaa aa a wae ae wk we ae ae we we wah ee ee te ee 


WN OS CONAUVUESWN “OC OBNOUSWN—O0@ 


kd ak aaa i a a ak ad tk at od tt od 2 = 2a = = 8 a = 
a a a ad ad ad ad ed od ed dd a — = 2 8 


5 Hoel 

5 $dbgtrc_prefix ("pdp_flush_write_buffer> '); 

3 LOCAL 

5 3 status 

2 40 , 

3 *) $debug_print_lit (‘entry'); 

5 “§ Scheck_call (3, pdp_check_ctx, .ctx, 455); ! $block_check (2, .ctx, (doslictx or rtlictx), 455) 
45 ctx Cctx$v_flush] = true ' Tells advance routine to flush the Last bloc 
r¢} status = pdp_buffer_ advance. write (.ctx); ! Flush any blocks that are sitting in the re buf fer 
ris ctx Cetx$v_flush) ="false; ' Clear the flush flag 

5 449 RETURN .status; 

450 END; 


Be Se Se Se Se Se Se Ge Ge Se Ge Be Fe Se Ge Ge Se Se Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Fe SeGe ae Fee Se Se Seeces ee 


0004 -ENTRY ET ke Re” FLUSH_WRITE_BUFFER, Save R2 : 1404 
5 04 AC 00 MOVL CTX 3 1445 
28 OA 4 BISB2 #4, 40(R2) : 
¢ DD A PUSHL R2 ; 1446 
FAEA (CF FB C CALLS) #1, PDP_BUFFER_ADVANCE WRITE ; 


N 10 
vos-00B” enchipap, flushewrite suffer tetas 1e=35p=198e 9:33:08 — LEXcrmee$ReSexcre-036+1 Page 44 
28 A? 04 BA 90011 B1CB2 #4, 40(R2) ; 1447 


; Routine Size: 22 bytes, Routine Base: EXCHSPDP_CODE + 0674 
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rivet exch$pdp_get CHiLb) 1 30071382 9b 35:08 LEXCHNG SRe EXCPDP.B32; 39 14) 


is 1 5 he ROUTINE exch$pdp_get (filb : Sref_bblock) = ZSBTTL ‘exch$pdp_get (filb)' 


++ 
FUNCTIONAL DESCRIPTION: 
; Common dispatch for RT11 get routines. 
i INPUTS: 
i filb = pointer to filb for an open RT11 file 
: 


PAE WMMAINUNIVIVIUWIV 


Wr" OOONOue 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true if success, false if any error 
SIDE EFFECTS: 
error conditions will be signaled 


3 
98 
94 
95 


ee ene, ; | 
mm 


$dbgtrc_prefix ("pdp_get> '); 


LOCAL 
buf_start, 
buf_end, 


Pointer to next byte in the buffer 
=> one past the end of buffer 
! Address of action routine 


PWN OC OONOAUES WN (OC OONAUS WN "OO OODNOUSE 
“7 
° 
c- 
mn 
=) 


o 
7 
= 
“nu 


filb bf} tpea.context3 : $Sref_bblock, 
filb Cfilb$a_assoc_volb] : $ref_bblock 


Se Se Be Se Se Se Se Ge Se Fe Ge Se Se Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Se Se Se Ge Se Se Se Se Se Se Se See Se eee e«e 
ee ee ee ee ee ee ee ed ee ed ed nd ed od od ed od 


Fe oT oP nt et et et tl hk 


———DO000O00O oo 
Fl el ke eh d-dh De D-DD Weh D-beat tet ek ek et et eh eh et 


a a a a ed dd dd 
OO OOO OW 0000 09090900 09 09 SII NI NINN NN NNN NOAA AAAAO 


uw 


Be Se Se Se Se Ge Se Se Se Be Se Sse Be Se SH Se BeBe Se Se See Se FO Se See Se ee HSH Se Se Se Se ee SH oe SESH Se SHS Se Se Se ee HSH SESH Ss Be Se Se Bees 


rnacetnnenetinemnetntponaemennar 


Small PDP-11 record structure routines 1 1984 01:11:4 AX-11 Bi leg -32 v4.0-7 Pa 4 
exch$pdp_get (filb) 1 1382 93339509 EXCHNG. SRO} EXCPDP. 835: 48 


$debug_print_lit ("entry"); | 
$block =check (2, .filb, filb, 456); 


$block_check (2, -volb, volb, 49 di 
sinege-ce call % pdp_ ctr fe ctx, .ctx, 494); 


<m 
Ra 
ao 
x 
e 
v 
io 
wv 


tt ad 
OOONAUE 
— 

= 

oO 

nororory 


: $block check (1, .ctx, (doslictx or rtiictx), 494) 
$log heck (2, (.¢tx (ctx$a “assoc. "filb] EQL .filb), 134); : 


3 14 ; 
3; 14 149 : 
; 14 e983 > 
3 14 149 $ 
ar) 1204 
: 1420 1 : Slosic” check (3. Cretx Cctx$er “assoc-volb] EQL_.volb), 1 : 
: 1% 1 ! ? Slogic-check (2, (IF .volb Cvolb$b_Vol_format] EQL volbSk_vfmt_rt11 THEN (.ctx Cctx$l_cur_block] NEQ 0) ELSE ; 
; 1% § 1282 ; Get a pointer to the place to start scanning, and a pointer to the first byte past the end of the buffer ; 
5 1425 15 5 $logic. check (2, (.ctx Cetx$a_buffer] NEQ 0), 196); ; 
: 14 6 1508 2 buf_start = .ctx (petxsa buffer] + .ctx [etxs $(_cur_byte] ; 
3 14 1509 ((.ctx tetas -cur _block ctx reeugt: “buf _base_block]) * 512); ; 
: 1428 1510 buf_end = .ctx Cetxsa_ buf fe ; 
3 1? 9 ae (C1 #7 ctx *tetxsl buf high_block] = .ctx Cetx$l_buf_base_block]) * 512); : 
; 14 1 1318 $$show_context; : 
: 1438 131? Get the routine address for this specific record format 

> 1435 1819 ferece eprint fao (‘record format !UL', .filb Cfilb$b_rec_format]) 

3 1038 1318 routn = {CASE -filb Cfilb$b_rec_ format] FROM filb$k_ffmt_lobound fo filb$k_rfmt_hibound OF 

: 1638 1520 filbSk_ rfme -pinecy) pdp_get_ binary; 

3 1439 1521 filb$k=rfmt_fixed eee get afixed; 

3 1440 15 ¢ filb$k~ rfmt_ stream) : poe et_stream; 

3 1441 15 INRANG exch_signal_ return (exch$_invrecfmt); 

3 100g 1358 filb$k rtmt invalid, 

; 1s? 12 2 sekis OUTRANGET : BEGIN $Slogic_check (0, (false), 243); 0 END; 

5 1445 1387 F 

5 1748 1 . : Now call the routine and return the status from it 

: 1448 138 RETURN jsb_get (.routn, .filb, .buf_start, .buf_end); 

3 1449 1531 

3 1450 1532 1 END; 


sEXTRN EXCHS_INVRECFMT 


07FC 00000 ENTRY EX HSPDP_GET, Save R2.R3,R4,R5,R6,R7,R8.R9,-; 1451 
5A 90000006 F 9E 9002 MOVAB EXCHSUTIL _BLOCK_CHECK, R10 : 
59 900 006 0 9€ 000 MOVAB LIB ; 

38 000 00 G 8F D 9019 MOVL WENCH, BAoLOsIC. R8 ; 

4 4 AC 00 0001 MOVL fl : 1493 
32 O35B00FA F pO 001 MOVL # ft R2 > 1498 
3 1c8 «BF OBC 0 MOVZWL #4 ; 

0 4 Dd 6 MOVL RG : | 

6A 16 OOO2A JSB Hern BLOCK_CHECK : 

3 Ig Aa D MOVL 8(R4) ; 1499 | 

041B00F ¢ p MOVL hele R2 ; 

1 O1ED = BF 3 MOVZ2WL #4 ; 

0 360 C MOVL R3 : 

6A 16 0003F JSB Fern _BLOCK_CHECK : 


errwvane . FG 
| 


dD 11 | 
EXCHSPDP Small PDP-11 record structure routines 16-Sep-1984 11:4 AX-11 Bliss-32 V4.0-74 Pa 3) 
v04 exch$pdp_get (fit) 13-308- 138 93:43:68 YEXCHNG SRCIEXCPDP B32: 9¢ 485 
7 01 BF 3 41 MOVZWL #494, =(SP) : 15 
g§ 5 AG 06 46 MOVE gee R2 : - 
000000006 90 03 F 4 CALLS #2, PDP_CHECK_CTX : 
4 10 Ae Dd CMPL 16 (R2), “RG + 1501 
B 1 BEQL Ss : 
7E 86 BF OA 9 MOVZBL #134, =(SP) : 
1 DD D PUSHL #1 : 
DD F PUSHL Rs : 
$9 03 FB 061 CALLS #3, LIBS$STOP : 
14 a2 d1 00 4 1$ CPL 0(r2), R3 + 1502 
7E 87 $8 SA ita MOVZBL #135, -(SP) : 
Qi DD O06E PUSHL #1 : 
DD 000 PUSHL Rs : 
69 03 FB O07e CALLS #3, | 188s TOP : 
03 58 A3 91 00075 2$: CMPB BiR3), #3 + 1503 
10 le 0079 BNEQ : 
1c A2 05 00078 TSTL 8(R2) : 
0B 12 0007E BNEQ : 
7E B1 F 9A 00080 MOVZBL #177, =(SP) : 
1 DD 00084 PUSHL #1 : 
8 DD 00086 PUSHL Rg : 
69 03 FB 00088 CALLS #3, LIBSSTOP ; 
53 18 A2 00 00088 3$: MOVL  24(R2), R3 : 1507 
0B 12 0008F BNEQ 4$ : 
7E C4 8F 9A 00091 MOVZBL #196, -(SP) ; 
01 DD 00095 PUSHL #1 : 
38 DD 00097 PUSHL Rs : 
69 03 FB 00099 CALLS #3, LIBSSTOP ; 
51 53 24 Ag C1 0009C 4$: ADDL3 36(R2), R3, R1 : 1508 
50 1c A2 2c.C«‘idA c3 000A1 SUBL3 44(R2), 28(R2), RO : 1509 
50 50 9 78 OO0A7 ASHL , RO, RO : 
56 51 0 3 000AB ADDL 0, RI. BUF START ; 
52 30 Ag 2c A ¢ OOOAF SUBL3 44(R2). 48(R2), R2 : 1511 
52 5 09 78 00085 ASHL Re Re : 
57 0200 243 9E 90089 MOVAB 512(R25CR3), BUF END > 1510 
03 09 28 AG B&F O00BF CASEB 40(R4), #0, # : 1518 
0025 O01E 001 0008 000C4 5$: «WORD $$-38.- ; 
8$-5$,- : 
Hs 3 
7E F3 8F 9A OOOCC 6$: MOVZBL #243, -(SP) + 1525 
oi DD 9909 PUSHL #1 : 
DD 000D PUSHL Rg : 
g FB 000D4 CALLS #3, LIBSSTOP : 
D4 00007 CLRL ROUTN ; 
13 11 00009 BRB ; 
CF 9E 000DB 7S: MOVAB PDP_GET_BINARY, ROUTN : 1518 
0c 11 E BRB 10$ F 
CF H E2 8$: MOVAB PDP_GET_FIXED, ROUTN : 
05 1 E BRB 10$ : 
cf 3 £9 9$ MOVAB PDP_GET_STREAM, ROUTN ; 
4 D EF 10$ MOVL R4,"R : 1530 
60 16 000F JSB (ROUTN) ; 
04 000F3 RET : 1532 


11 
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; Routine Size: 244 bytes, Routine Base: EXCHSPDP_CODE + 068A 
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EXCHSPDP Small PDP-11 record structure routines 19-3012 4 9} 34:8 errs Bliss-32 V4.0-74 Page 
v04-000 pdp_get_binary (filb, buf_start, buf_end) 14-Sep-1984 12:29:0 EXCHNG.SRCJEXCPDP.B32; (1 
3 1 GLOBAL ROUTINE pdp_get_binary (filb : Sref_bblock, ZSBTTL ‘pdp_get_binary (filb, buf_start, buf_end)' 
4 buf_start, buf_end) : jsb_get = 


Shoe 
5 


' 
! FUNCTIONAL DESCRIPTION: 


DONO WT 


3 14 1 

3 14 1 

3 14 1 

3 14 1 

; 14 1 ' 

i 1b § 

3 1028 ; 2 } Return a pointer to the next formatted binary record in the file 
3 1461 154 ! INPUTS: 

3 1288 154 ! 

3: 146 1544 : filb = pointer to filb for an open RT11 file 
> 1464 1545 ; buf_start = pointer to next byte in the buffer 
; 1002 } 2 buf_end = pointer to one past the end of buffer 
3 1467 1368 ! IMPLICIT INPUTS: 

: 1468 154 : 

> 1469 1550 ‘ none 

3; 1470 1551 ! 

3; 1471 1226 ! OUTPUTS: 

: 1076 155 : 

3 147 1554 ! none 

3 1474 1555 ! 

3; 1475 1328 ! IMPLICIT OUTPUTS: 

3 ror 155 ! 

3 147 1558 : none 

3; 1478 1559 ! 

3: 1479 1560 ' ROUTINE VALUE: 

3; 1480 1561 ! 

3; 1481 1266 : true if success, false if any error 

3 one 156 ! 

3: 148 1564 ! SIDE EFFECTS: 

3 1484 1565 ! 

3; 1485 1208 ‘ error conditions will be signaled 

> 1486 156 feo 

abs 1369 5 Sdbgt tix ("pdp_get_binary> *) 

; gtrc_prefix (*pdp_get_binary> '); 

3; 1489 1570 

: 1490 1571 LOCAL 

3 1491 1378 new_start, ! Pointer to look next time. 
: 1436 157 tmp, 

3; 149 1574 status 

3 1494 1575 g 

3: 1495 1376 

3 1608 157 BIND 

3 149 1578 ctx = filb bit tpee_contents : $ref_bblock, 
3 pbs 132? volb = filb Cfilb$a_assoc_volb) : Sref_bblock 


| 
45) 
6) | 
| 
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S$ PDP-11 ° = - 
pap_get-binary (rilbs buf start. but end) ifite 198e 92:29:09 — EBXcunceSResExcPDe.03074 Page 195 


Sdebug_print_lit (‘entry’); 

Attempt to find a record in the current portion of the buffer 

status = pdp_find_binary_record (.filb, .buf_start, .buf_end, new_start); 
What did we see, what do we do 

case «Status FROM findbin$k_lobound TO findbin$k_hibound OF 


Success, update our next record pointer and return true 
CfindbinSk_success, findbin$k_chksum] : 


BEGIN 
IF .status EQL findbin$k_chksum 
Sexch_signal (exch$_binchksum, 2, .filb Cfilb$l_result_name_len], filb Cfilb$t_result_na 
tmp = .new_start - ctx Cctx$a bufferd; ! Save the updated position for the next get 
ctx Cctx$l-cur -pyte], = (tmp MOD 
ctx ctxst. “cur_block] = (.tmp / 512) + .ctx Cetx$l buf_base_block]; 
RETURN true; ' Found a record 


Hit the end of the buffer with no record, determine if EOF or need to read more buffer 
Cfindbin$k_eob] : 
BEGIN 


$trace_print_lit ("findbin$k_eob status’); 
$$show_context; 


If we are already at the eof block, then we have found EOF and can return 
IF (.ctx Ceotx$l_buf_high_ block] GEQU .ctx Cctx$l_eof_block]) 
' nS Cctx$i_eof_block] NEQ -1) 
status = false 
Otherwise, we can read in more data 


IN 
My (status = pdp_buffer_advance_read (.ctx)) 


BEGIN 
cr _gbtetes EQL exch$_stmrecfmt ! Means no room to read more blocks 
BEGIN 
status = exehs._ binrecfmt; 
Sexch usignal (Tstatus, 2, .filb CfilbSl _result_name_len], filb Cfilb$t_result_na 


ELSE 


a ee ii ee ee ee ee ee ee eS SS» 
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ss 
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pdp_get_binary (filb, buf_start, buf_end) 1028057188 93:39:68 LEXCHNG. SRC JEXCPDP.B32; 9047) 


; RETURN .status; 


ELSE 
. RETURN exch$pdp_get (.filb); 
Cfindbin$k_too_big] : 
BEGIN 


4 
4 
END; 
END; 
} Found a badly formatted record 
Cfindbin$Sk_bad_fmt) : 
BEGIN 
status = exch$_rectoobig; 
1 


ano 
Ww 


OOo 


rSSSS 555 


WN O OONAVUVES WN“ OOODNOUNLS win 


o 
= 


sezch.signat (status, 2, .filb Cfilb$l_result_name_len], filb Cfilb$t_result_name]); 


status = exch$_binrecfmt; 
la (.status, 2, .filb Cfilb$l_result_name_len], filb Cfilb$t_result_name]); 


RO A rncnnencnnen ee 


CINRANGE, OUTRANGE) : 
Slogic_check (0, (false), 244); 


a a dd dd 
oOo 
o 


64 
oe? TES; 
es? : Set the next record position to invalid, and return the error 
669 ctx Cetx$l_cur_byte]_ = 0; 
o70 ctx Cctx$l_cur_block] = 0; 
ore $$show_context; 
of? Sdebug_print_lit (‘returning status !XL', .status); 
675 RETURN .status; 
O76 
67 END; 
-EXTRN EXCHS$_BINCHKSUM 
~EXTRN EXCHS~BINRECFMT 
5E 04 C2 00000 PDP_GET_BINARY:: 
#4, SP 3 1333 
40E0 F BB 0000 PUSHR #*M<R5,R6,R7,SP> : 158 
FD93 cf 4 FB 0 CALLS #4, PDP_FIND.BINARY_RECORD ; 
3 D C MOVL RO 3 
04 00 CF OOOOF CASEL status, #0, #4 > 1589 
00A9 O01F 0066 poi Sie 1$: - WORD $-1$,- 3 
AO 1B 4$-1$,- 3 
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000000006 


000000006 


wowul 
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24 
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20 
FFFFFFFF 


F7E9 


000000006 


FESB 


000000006 


d stru 
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a 00000200 
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50 
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38¢ 92:25:09 — ENcunce$resexcroe 036; 
4266, -(SP) 
MEXCHS BADLOGIC 
#3, LIBSSTOP 


(FILB) 
(FILB) 


# 

#EXCHS_BINC 

#4, LIBSSIGNAL 
2tF ,R 
4(R1), NEW_START, TMP 

#07 -(SP5 

#512, (§P)+, R2, R2 

R2, 36(R1) 

#512 RO 

4(R1)CROJ, 28(R1) 

; RO 

(FILB), RO 

(RO), $2(RO) 

(RO), #1 

TUS 


TATUS, #2 


RVD" NOW Fw BD 
AyD 


eae eee ae 


, PDP_BUFFER_ADVANCE_READ 
TATUS 


TUS, 7$ 
ATUS, #EXCHS_STMRECFMT 
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Small PDP-11 re 
pdp_get_fixed ( 


10 


a en SS Ss 


1:4 

lb, buf_start, buf_end) -Sep- 9:0 

1 GLOBAL ROUTINE pdp_get_fixed (filb : Sref_bblock, %SBT 
buf_start, buf_end) : jsb_get = 


cs 
FUNCTIONAL DESCRIPTION: 
Return a pointer to the next fixed-length record in the file 
INPUTS: 
filb = pointer to filb for an open RT11 file 
buf_start = pointer to next byte in the buffer 
buf_end = pointer to one past the end of buffer 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
true if success, false if any error 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
4 
i 
i 
i 
i 
i 
i 
i 
i 
! 
' 
i 
i 
i 
i 
‘ 
i 
' 
i] 
i 
i 
i 
: error conditions will be signaled 


Sdbgtrc_prefix ("pdp_get_fixed> '); 
REGISTER 


vel2, 
rec_size 
LOCAL 
nou Start, ! Pointer to look next time. 
status 
BIND 
ctx = filb pt] tbeaconteut? : Sref_bblock, 
volb = filb Cfilb$a_assoc_volb] : $Sref_bblock 


S$debug_print_lit ("entry"); 
! Preset some registers for a bit more speed 
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7 1 4 1384 oy: : : YEXCHNG SRE EREPYB O30, 


Mg "pdp_get_fixed (filb, buf_start, buf_end)' 
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pdp_get_fixed ( 
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lb, buf_start, buf_end) 
fiver = 512; 
rec_size = .filb CfilbSl_fixed_len); 
Get a pointer to the start of the next record 
new start = .buf_start + .rec_size; 
H See if the next record is in the buffer, EOF or advance the buffer if it isn't 
IF (.new start - 1) GEQU .buf_end 

BEGIN 

If the EOF block is in the buffer 

IF (.ctx Cetx$l_buf_high_block] GEQU .ctx Cctx$l_eof_block]) 

(.ctx Cetx$l_eof_block] NEQ -1) 

THEN 
BEGIN 
Set the next record position to invalid, and return false 
ctx Cctx$l_cur_byte) = 0; 


ctx Cetx$l_cur_block] = 0; 
— false; 


Otherwise, read some more data in and recursively retry the get 


EGIN 
con (status = pdp_buffer_advance_read (.ctx)) 


RETURN .status; 
RETURN exch$pdp_get (.filb); ! And then try it again 


END; 
Slogic_check (2, ((.new_start - 1) LSSU .buf_end), 133); 
: Use locate mode - point the filb record info at the buffer 


filb Cfilb$a_record] = ,buf_start; 
filb Cfilb$l_record len} = wrec_size; 


: Update the next record position 
$logic_check (2, (.ctx Cetx$e butter] NEQ 0), 198); 
tmp = .new_start - .ctx Cctx$a 

ctx ctx${“cur_bytel = ,tmp -fivel2; 
ctx Cctx$l_cur_block] = (.tmp / .fivel2) + .ctx Cctx$l_buf_base_block); 
RETURN true; ! Found a record 


<m 
~~ 


EXCHNG. SRCJEXCPDP. 


buffer]; ! Save the updated position for the next get 
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EXCHSPDP Small PDP-11 record structure routines 18-56 1984 01:11:4 AX-11 Bliss-32 v4. Pa 1 
FOe~000 pdp_get_fixed (filb, buf start, buf end) 1en8e8=19Re P3:3E:3$ FAKE Ok lege 32 ue «Bree ert 
52 0200 8F 3C 00000 PDP_GET_FIXED:: ; 
MOVZWL #512 FIVE12 : 1736 ; 
3 35 «OA 00 5 MOVL. 5S3<FILB), REC_SIZE + 173 ; 
54 é 5 ADDL3 REC SIZE. BUF-START, NEW START + 1741 ; 
FF Aa OOF PUSHAB -1(R4) + 1745 : 
57 $ D1 0001 MPL (SP), BUF_END : : 
50 AS bo 9001 Soe” $3 LB) : 1751 } 
20 Ad $8 A0 pi 19 CPL 4 trode $2%8o) : ; 
FFFFFFFF © 8F 20 AO b} 0 6 CPL $F cn0>, #1 + 1753 
24 AO D4 OOOZA CLRL $6(R0) : 1759 
1¢ AO D4 000200 CLRL (RO) : 1760 
D4 0 0 CLRL = RO + 1767 
; 11 BRB 4$ F 
DD 00034 1$ PUSHL RO + 1768 
F762—sOCF g1 FB 0 CALLS #1, PDP_BUFFER_ADVANCE_READ : 
4c Q E 90 B BLBC STATUS, ~4$ ; 
55 DD 000 PUSHL FILB : 1771 
FDE2 CF 01 FB 0004 CALLS #1, EXCHSPDP_GET ; 
43 11 0004 BRB 4$ : 1767 
46 AS 36 DO 00047 2$ MOVL §BUF_START, 70(FILB) : 1779 
42 a3 DO 00048 MOVL REC “SIZE, 66(FILB) + 1780 
5 20 A 00 O04F MOVL (FILB) , RS : 1784 
18 A3 D5 00053 TSTL 4(R3) : 
13 12 0056 BNEQ $ : 
7E C6 BF 9A 0005 MOVZBL #198, -(SP) : 
1 oD 909¢ PUSHL #1 ; 
Panett 000000006 8F Dp OOSE PUSHL HEXCHS BA BADLOGIC : 
50 54 18 te cS 99 3$ atte 24(R aie Ne START TMP + 1785 
7E 00 50 oi A EMUL =so#1, ‘TM nb, + 1786 
51 51 af 2 78 0007 EDIV. FIVE12 “PSs, , RI : 
24 =A 51 D 6 7A MOVL R1, 36(R3 ; 
5 38 ¢6 7E DIVL2 FIVE Ele, RO : 1787 
1c OA 2c B34 1 MOV a44(R3SCROJ, 28(R3) F 
5 01 D 7 MOVL #1, RO : 1789 
5E 4 ¢ 00 A 4$ ADDL2 #4. SP ; 1791 
3; Routine ze: ytes, outine Base: - + 
Routine Si 142 b Routine B EXCHSPDP_CODE + 0863 


Excusror Small PDP-11 record structure routines 16- se0-1984 9}: 


$ AX-11 Bliss-32 V4.0-7 Page 3¢ 
pdp_get_stream (filb, buf_start, buf_end) -Sep-1 EXCHNG.SRCJEXCPDP. B3e; (19) 


11:4 
29:0 
\? re GLOBAL ROUTINE pdp_get_stream ag + $Sref_bblock, wt TL ‘pdp_get_stream (filb, buf_start, buf_end)' 
= 


i THs tart, "buf_end) : j 
; star uf_end) : js ; 
; iH 1734 BEGIN : 
: 171 1 +4 : 
; a 1538 i ‘ 
3; 171 179 : FUNCTIONAL DESCRIPTION: ‘ 
; 1720 1738 : : 
3 \f 1 Vv Return a pointer to the next stream record in the file : 
i 1758 180) § { inpurs: 
; 1724 1 8 ‘ 
3; 1725 1 8 filb - pointer to filb for *” open RT11 file : 
3; V7 § 1804 i buf_start - pointer to next byte in the buffer ‘ 
: Vv , ! bg buflend = pointer to one past the end of buffer : 
: 1729 180 i IMPLICIT INPUTS: ‘ 
; 17 1808 i : 
: 1731 1809 i none ‘ 
3s 7 ; 1810 i : 
; 17 1811 i QUTPUTS: : 
; 17 1 \¢ i ; 
: 1735 \3\ none ‘ 
3 T7 1814 i : 
3 7 1312 i IMPLICIT OUTPUTS: ‘ 
3 i 1 1 > 
; 1739 181 i none ‘ 
; 1740 1818 i : 
3 1741 1819 i ROUTINE VALUE: . 
; oy 1820 ‘ 
3 174 1821 i true if success, false if any error : 
3 1744 18 ¢ i : 
3 1745 18 i SIDE EFFECTS: ; 
; 1746 1824 i : 
3 1747 1825 error conditions will be signaled : 
3 1748 1826 ie : 
3; 1749 1827 : 
3; 1750 1828 Sdbgtrc_prefix (‘pdp_get_stream> '); : 
; 1751 is 9 : 
; 1738 1830 LOCAL : 
3; 175 1831 new start, ! Pointer to look next time. : 
3 1754 18 $ find_stat, ; 
3 1755 1 status > 
3 1726 1834 3 : 
; 172 1835 : 
; 1758 1 § BIND : 
3 1759 13 ctx = filb Fi tbse> context] : Sref_bblock, : 
3 1389 1338 volb = filb Cfilb$a_assoc_volb) : $ref_bblock : 


Hii 
EXCHSPDP Small PDP-11 record structure routines 16-Sep-1984 01:11:4 AX-11 iss- 4.0-74 
iOS pdp_get_stream Fite’ buf start, buf_end) 12 300-13 9:35:08 EXCHNG SRE EXCPUP:o30¢4 Page 203 


Sdebug_print_lit (‘entry’); 


IF (.ctx Cotx$l_buf_high_block] GEQU .ctx Cctx$l_eof_block]) 
f-cte Cctx$l_eof_block] NEQ -1) 
status = false 


SSeusor ences 


Otherwise, we can read in more data 
ELSE 
en” (status = pdp_buffer_advance_read (.ctx)) 


IF .status EQL exch$_stmrecfmt ! Means no room to read more blocks 


s 1 9 s 
5 1 3 
; 1009 ! rX: : Attempt to find a record in this portion of the buffer ; 
3 1767 1 te tind_stat = pdp_find_stream_record (.filb, .buf_start, .buf_end, new_start); 3 
3 1798 : rh } What did we see, what do we do ; 
: 1771 184 CASE .find stat FROM findstm$k_l TO fi k_hi F ; 
178 a3 As e stm$k_lobound TO findstm$k_hibound 0 
3 rr ! i) Success, update our next record pointer and return true ; 
: 177 185 Ct indstmSk : : 
2 nt aiceik seeat 

ets ath 

< mp. 

: 1781 1858 tmp = .new start - .ctx Cctx$a_buffer]; ! Save the updated ition for th t get 

: 1789 1859 ete eéxSt_cur_bytel = “tmp MOD 5125 . sale tia acetic oc cry Beg Sp 

3; 17 1860 ctx Cetx$l_cur_block] = (.tmp / 512) + .ctx Cctx$l_buf_base_block]; 

3: 17 1861 RETURN true; ! Found a record 

a ss 

3 He 14 1308 Found a control Z at the start of a record, done with this file 

3 1789 1866 Cfindstm$k_ctriz_eof) : 

3 1791 68 status = false: 

; 1738 ' 4 : Hit the end of the buffer with no record, determine if EOF or need to read more buffer 

: 1795 187 Cfindstm$k_eob] : 

: 1796 1 8 a 

: 1498 1878 “ee 

31 1 u $trace_print_lit ('findstm$k_eob status"); 

: ! : A $$show_context; 

; ' ' 4 If we are already at the eof block, then we have found EOF and can return 

:4 1881 

s 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

2 1 1 

3 1 1 

3 1 1 

s ¥ 1 

3; 7 1 

3 1 1 

3} 1 

3 1 1 


AFAR 8 4 et try oe 
QukFwn—O0ew uw 
PUPS ES SS NM ANNE WS 


at a a a tt 


OONOUE WN — 


Sexch_signal (.status, 2, .filb Cfilb$l_result_name_len], filb Cfilb$St_result_na 


Small PDP-11 record structure routines 1 
pdp_get_stream (filb, buf_start, buf_end) 1 


XCHSPDP 
-000 


~1984 01:11:4 AX=-11 Bliss-32 V4.0-74 P 
1982 13:29:09 EXCHNG.SRCJEXCPDP.B32; ot 


. <m 
~ & 
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ee i ee ee ee SY 


ELSE 
- RETURN exch$pdp_get (.filb); 


(0009 00 0009 00 


IAWIWPoTororororereoreorfnerny) 


MEWN OO CONIOUS WN —O 


LSE 
RETURN .status; 
| 


END; 
Hit the end of the buffer with some record, determine if can read more buffer or final record is missi 
Cfindstm$k_no_term] : 

BEGIN 


$trace_print_lit ('findstm$k_no_term status'); 
$$show_context; 


WAG 


SS 


wWOOOOOOOOOOOOOO 


If we are already at the eof block, then the record reaches to the end of the block 
IF (.ctx Cotx$l_buf_high_block] GEQU .ctx Cctx$l_eof_block]) 


(.ctx Cetx$l_eof_block] NEQ -1) 
THEN 


00 09 C9 Co C0. C0. CD CD CD 
Ww 


WOO 
MM 3 3 3 3 3 3 SS OOO OOOO 


WO OONAUS WN 0 ODNOAUE WN $9 OONAUS WN $$ OOONAUS WN OC ONCUE wh 


tmp; 
tmp = .new_start - .ctx Cctx$a_buffer); ! Save the updated position for the next get 
ctx petxst_cur byte) = tmp MOD 512; 
ctx Cetx$l_cur_block] = (.tmp / 512) + .ctx Cctx$l_buf_base_block]; 
ah N true; ! Founda record 


Otherwise, we can read in more data 


EGIN 
my (status = pdp_buffer_advance_read (.ctx)) 


SHSSRERRRR RRO REE 


WDONOULWN—OOONOus 


BEGIN 
IF _.status EQL exch$_stmrecfmt ! Means no room to read more blocks 


os og UO tat (.status, 2, .filb Cfilb$l_result_name_ien], filb Cfilb$t_result_na 
RETURN .status; 


ELSE 
ia RETURN exch$pdp_get (.filb); 


See ueor eR ee 


END; 
Found a badly formatted record 
Cfindstm$k_bad_fmt] : 


a eee ee ee ee Se SS) 


DWDOODOODOOOOOOOODOOOOODOVOOODOVODODOOODOODOOODOOOO 


00090900 00 Co 
SANS 
Oulwtr— 


Ww 


BEGIN 


CRRIPIPIPININI NAS BS BB BBE BBB BEEF PAPA PWN NII ARINIPIPUNIPILMN SE PT 
~-ow 
om 
aoc 
>- 
ra 
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EXCHSPDP Small PDP-11 record structure routines 1b-s6 -1984 01:11:4 AX-11 Bliss-32 V4.0-742 Pa 5 
v04- pdp_get_stream (filb, buf_start, buf_end) 102388-1 382 93:35:09 EXCHNG.SRCJEXCPDP.B32;1 7020), 
; 1877 1954 gtatus « exch$_stmrecfmt; 
3; 187 1955 exch_signal (Tstatus, 2, .filb Cfilb$l_result_name_lenJ, filb Cfilb$t_result_name]); 
3 ; ip 1328 END; 
4 | 
3 i 1228 CINRANGE, OUTRANGE) : | 
: 18 1960 Slogic_check (0, (false), 245); 
: abe 1961 “e | 
: Bee 1908 5 tS | 
: 144 ae: } Set the next record position to invalid, and return false 
; 1889 1298 ctx Cctx$l_cur_byte]_ = 0; 
; 130 bs 24 ctx Cetx$locur_block] = 0; 
3 1898 1969 RETURN .status; 
3; 189 1970 
3; 1894 1971 1 END; 
5E 04 C2 00000 PDP_GET_STREAM:: 
SUBL2 #4, SP : 1792 
40E0 8F BB 00003 PUSHR #°M<R5,R6,R7,SP> : 1844 
FCCF CF 04 FB 00007 CALLS #4, PDP FIND STREAM_RECORD : 
4 50 CF 0000C CASEL FIND_STAT, #0, #4 : 1848 
0025 003A 001F 00010 1$ WORD 2$-15,- 3 
00A1 00018 4$-1$,- 3 
3$-1$,- : 
7$-1$,= 3 
12$-1 F 
7E FS 8F 9A OOOTA MOVZBL #245, -(SP) ; 1960 
01 DD OOOIE PUSHL : 
00000000G 8F DD 00020 PUSHL rae BADLOGIC 3 
000000006 00 03 =FB 808 6 CALLS #3, LIBSSTOP ; 
1D 11 0002D BRB 3 ; 
51 20 AS 00 O002F 2$ MOVL 2(FILB), R1 : 1858 
3 11 B08 3 BRB 33 : 
50 30 AS DO 00035 3$ MOVL 2(FILB), RO ; 1881 
20 AO 0 Ad 01 00039 CMPL 48(RO), $2(RO) : 
oF 1f OOO3E BLSSU $s g 
FFFFFFFF 868F 20 AO O01 poe CMPL 2(RO), #1 : 1883 
9 13 0004 BEQL 6$ 3 
3 D4 aRee 4$: CLRL STATUS ; 1885 
4 11 0004C 5$: BRB 14$ 3 
50 DD 4E 6$: PUSHL RO : 1891 
40 11 5 BRB 10$ ; 
51 $8 AS 00 00 2 7$: MOVL 32(FILB), R1 : 1917 
20. «AI Al D1 9 CMPL 48(R1), $2(R1) : 
33. «OF 5B BLSSU_ -9$ : 
FFFFFFFF 8F 20 Al 9 5 CMPL all #-1 : 1919 
29 38 BEQL $ 3 
50 18 Al ¢ 0067 8$ SUBL3 24(R1), NEW_START, TMP : 1924 
00 gi A 006¢ EMUL #1, TMP, #07 -(SPS > 1925 
2 BE 00000200 8F 78 00071 EDIV #512, (SP)+, R2, R2 : 


ey 


on 
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EXCHSPDP Small PDP-11 record structure routines 16 Sep- AX-11 Bi Teg =-32 v4.0-742 Page 
v04-000 pdp_get_stream (filb, buf_start, buf_end) 1 2-368-} 3h 93: 33; - EXCHNG. SRC} EXCPDP.B32;1 
24 Al 2D 7A MOVL nega”? : 
50 00000290 i ce are DIVL2 RO : 
1c AT C 8140 MOVAB ele ROJ, 28(R1) : 
50 01 +O MOVL 3 
46 1 0 BRB rag * : 
1 OD 9$: PUSHL RI $ 
F678 gf Tr 0092 10$: CALLS #1, PDOP_BUFFER_ADVANCE_READ s 
3 DO 0009 MOVL RO, STATUS 3 
0B EB OO09A BLBS § STATUS, 11$ : 
00000000G &F D1 00090 CMPL STATUS, MEXCHS_STMRECFMT : 
12 13 OO0A4 BEQL 13$ 3 
8 11 SO Ag BRB S$ : 
DD OOOA8 11$ PUSHL FILB é 
FCEA CF 01 FB OOOAA CALLS #1, EXCHSPDP_GET : 
@2 11 OOOAF BRB 16$ : 
53 000000006 F po Be0e) 193 MOVL MEXCHS_STMRECFMT, STATUS s 
5A AS 99F 000B8 138 PUSHAB 90(FILS) 3 
3A AS DD 000BB PUSKL 58(FILB) 3 
0¢ DD 44 PUSHL oF as 3 
DD O000C PUSHL 3 
00000000G 00 04 FB 000C2 CALLS Ne “LipssicnaL : 
50 20 AS DO OO0C9 148: MOVL a 3 
24 AO 04 000CD CLRL é 
1c ag D4 it CLRL é 
50 53 DO 000D3 15$: MOVL Crus. RO 3 
5E 04 CO 00006 16$: ADDL2 #4, SP : 
05 00009 $B s 
; Routine Size: 218 bytes, Routine Base: EXCHSPDP_CODE + O8F1 
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MIPMINMINMINNNININ 3 SS OO 
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»< 
co 
xz 
bad 
ae el 
An 


oooo 
C8 SAU EWN CO OONAUE WN $0 OONAUS WN" OOOnNOuU 


SSSoossssesssss 


oO 


MorPonohofononofoforfony 


SOoooooooo 
WONOUS WN OO 


Roronofonoponornenys 


none 


put 14-Sep-1984 EXCHNG.SRCJEXCPDP.B32; (21) 
a oe ROUTINE exch$pdp_put = %SBTTL ‘exch$pdp_put' 

ag 

i FUNCTIONAL DESCRIPTION: 

H Common dispatch for RT1l-style put routines. The main purpose of the extra dispatch is simplify the 
; mechanism for optimizing i/o transfers to physical mode when possible (for example RT11 => Rri does 
H need record mode). 

INPUTS: 

none 

IMPLICIT INPUTS: 

see the BIND expression 

OUTPUTS: 

none 

: IMPLICIT OUTPUTS: 

see the BIND expression 

ROUTINE VALUE: 

value of format-specific put routine 

SIDE EFFECTS: 

H 

: 


$dbgtrc_prefix ("pdp_put> '); 


LOCA 
buf_start, 
buf_end, 
routn 
BIND 
copy = exch$a_gbl CexegSa_copy work]: $ref_bblock, ! COPY verb work area 
inp_filb = copy Ccopy$a_inp_filb : $ref-bblock, ! pointer to the inpu' filb with the record info 
out_filb = copy copyse_out .falp : $ref_bblock, ! pointer to filb for an open Files-11 output file 
len = inp_fi filb$l_record_len), ' Length of the record 
buf = inp_filb Cfilb$a_ r ! address of the record 
ctx = out_filb filb$a-contexts : $ref_bblock, ! output file context block 
volb = out_filb Cfilb$a_assoc_volb] : $ref_bblock ! output file volume block 


Sdebug_print_fao ("entry, format=!UL, Len=!UL, buf(0:19]="!AF’", .out_filb Cfilb$b_rec_format], .len, 20, .b 


Sblock_check (2, .inp_filb, filb, $66); 
Sblock-check (2, .out_filb, filb, 467); 


F 12 
EXCHSPOP Small ag record structure routines 16-Se 4 AX-11 Oi ies -32 v4.0 Page 58 
06-000 exch$pdp._ put 12z86871382 93:53:5 EXCHNG SRETEXCPOP b32, 9 21) 
; 1953 8 8 Scheck -cally (1, pdp_ 1g sft, ° tx, 537); ! Sblock_check (1, .ctx, (dosiictx or rtlictx), 537) 
3; 19546 sblog “check (2, gvorb b. vol 
; 1955 1 $log e“check (2, texsa r- filb] EQL .out eitp) , 168); 
: 1388 § § Srogic-cpeck ts. ce eo Stig aries ete CQL. yotB) 169); t_rtll THEN (.ctx Cetx$l_cur_block] NEQ 0) ELSE 
3 chec ‘ vo vol_forma Vv mt_r c C 
: 1328 0 ¢ Slogic_check (2, (. iat Orbu filb$s_record_buffer), ¥34)s : a : 
5 Hb 4 o § : Get pcinters to the start of the next record position in the buffer, and to the end of the current buffer 
: 196 038 $to ic_check (2, (.ctx Cetx$a_buffer] NEQ 0), 200); 
: 1968 039 bufestart = .ctx Cc = buffer 2 ctx Eeessl cur byte] 
3 1964 040 x Cetx$l_cur_block ctx fers: “but _base_block]) * 512); 
: 1965 041 buf_end = “ete te tesa, buf fer 
: 1208 ots + .otx Letxst buf high_block] - .ctx Ccetx$l_buf_base_block]) * 512); 
3 1308 Bee } Get the address of the record format specific routine 
: 1970 nee hevesa _print_fao (‘record format !UL', out. filb Cfilb$b_rec_format]) 
: 1972 oh routn = {CASE -out_filb Cfilb$b_rec _format FROM filb$k_ffmt_lobound io filbSk_rfmt_hibound OF 
: 197 049 filbsk_ rfme _binary] : dp_put_binary; 
3: 1974 050 filb$k=rfmt_ Huedl t bab pu - t_fix eds 
3; 1975 051 filb$Sk of fmt _ east pee oe “stream; 
: 1976 O26 INRANGE) : exch_stgnal_return (exch$_invrecfmt); 
: 1977 05 filb$Sk_rfmt invalid, 
3; 1978 054 OUTRANGE] : BEGIN Slogic_check (0, (false), 246); 0 END; 
3; 1979 055 § TES); 
; 1980 b28 
: 2 FH ; Now call that routine, returning the value of the routine 
: 1983 2059 RE — jsb_put (.routn, .buf_start, .buf_end, .ctx, .len, .buf); 
3; 1984 2060 1 END 


.EXTRN EXCHSA_GBL 


OFFC 00000 ENTRY EXCHSPDP_PUT, Save R2,R35,R4,R5,R6,R7,R8,R9,-; 1972 

5B 000000006 8F DO 9002 MOVL HEXCHS BADLOGIC, R11 : 
50 000000006 EF 4 Ci 00 ADDL EXCHS A-GBL. 0 : O16 

q 6 C ¢1 00011 ADDL a6. (RO), "R : 201 

3 so gosnanes Ary Bis AE ee AD : 38 
3 6 Bote F C1 Q ADDL #90" (R3). RS : 2020 
5 0 o9 020 vL —-_« (ROS, _R : 2021 
3 035B00F A F p 0 9 VL #562956 4, R2 + 2027 

5 1D2 F C 0 MOVZWL oy . RI : 

50 63 0 C VL (R3). RO : 

9000 9006 F 1 F JSB EXCHEUTIL BLOCK CHECK ; 
2 O35B00FA BF p 45 Ove #5 39 6747 R > 2028 

1 1D3. BE ¢ 4C MOVZWL #467, R1 : 

© sooo00006 ef be boos ma OG ts BLOCK CHECK : 
43 9908 iF x 0 A MOVZWL Ext -(SP) = ; 2029 

5 20 AS D F OVL 3¢(R5), R3 ; 

53 DD 00063 PUSHL R : 
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EXCHSPDP Small PDP-11 record structure routines 18-3¢ =1984 01:11:4 AX-11 Bliss-32 V4.0-74 Pa 9 
v06= exch$pdp_put 1 =300 138% 93339368 YEXCHNG SRE EXCPHP 3004 e333 
000000006 00 02 F 65 CALLS #2, PDP_CHECK_CTX ; 
4 1 {3 09 gee MOVL shins) = Bits + 2030 
é 041800F F p ut MOVL 4688 8579, R2 : 
1D4 BF f 7 MOVZWL #468, R1 : 
0 4 Dd 7¢ MOVL R4, R : 
000000096 ef 1 7F JSB EXCHSUTIL BLOCK_CHECK : 
55 10 A3 p + CMPL (R3), RS + 2031 
F Q BEQL $ 
7E AS BF OA MOVZBL #168, =(SP) : 
5 RBS A : 
000000006 00 a3 FB O33 CALLS #3 188s TOP : 
4 16 Ad D 9A 1$: CMPL (R3), R4 + 2032 
OF 13 0095 BEQL : 
7E A9 BF «9A OOOA MOVZBL #169, (SP) : 
on DD 000A4 PUSHL #1 : 
DD OOAG PUSHL R11 : 
000000006 00 03 FB 00 CALLS #3, LIBSSTOP : 
03 58 AG 91 OOOAF 28: CMPB BiR4), #3 + 2033 
14 if 0083 BNEQ : 
1¢ =6A3) DS 00085 TSTL 8(R3) : 
OF 12 00088 BNEG ; 
7E BO 8F 9A OOOBA MOVZBL #176, -(SP) : 
gi DD O0BE PUSHL #1 ; 
000000006 00 Me ite: Cote et esstop : 
00000200 8F 66 D1 000C9 3s: CMPL (RO), #512 + 2034 
10 1B 00000 BLEQU ; 
7E 0118 «8F 3¢ 9000¢ MOVZWL #283, -(SP) : 
01 DD 000D PUSHL #1 : 
5B DD 90009 PUSHL R11 : 
000000006 00 03 FB 0008 CALLS #3 L1BSSTOP F 
52 18 «OA 00 990 4$ MOVL 4ir3), R2 : 2038 
F 12 00066 BNEO $ : 
7E C8 8F 9A OO0ES MOVZBL #200, -(SP) ; 
gi DD OO0EC PUSHL #1 : 
DD OOOEE PUSHL R11 : 
000000006 0 03 FB 000FO CALLS #3, LIBSSTOP : 
51 é 34 A3 C1 OO00F7 S$: ADDL3 36(R3), Re R1 t 2039 
50 1 OA Cc oO cs OOF SUBL3 44(R3). 28(R3), RO + 2040 
50 50 3 10 ASHL. 4&9, RO, : 
59 51 9 C1 00106 ADDL3 RO. R1. BUF START : 
50 30 Ad -s & cs 10A SUBL3 44(R3). 48(R3), RO : 2042 
50 20 0 110 ASHL #9, RO, R : 
A 0200 c042 9E 00114 MOVAB 512(ROSCR2), BUF _END > 2041 
03 00 AS 8F O11A CASEB 40(R5), #0, # > 2047 
0029 0022 0018 0008 11F 6$: WORD 13-68.- : 
#368 ; 
7E F6 8F 9A 00127 7S: MOVZBL #26, -(SP) > 2054 
1 DD 00128 PUSHL # : 
DD 0012D PUSHL Ri : 
000000006 00 FB 10F CALLS #3, LIBSSTOP ; 
p 1 CLRL = ROUTN : 
13 11 001 BRB 1 F 
50 0000v CF 9E 0013A 8S: MOVAB PDP_PUT_BINARY, ROUTN > 2047 


voe"808" — Bt" Sicpntebcatmetet sionsinen ds 1-80-1888 Phi3b:09 — EBXchnc? Sab Sextebe:055:4 Page 99 


1 f BRB 11$ 
50 0000Vv ‘i i 9$: peye PDP_PUT_FIXED, ROUTN r 
50 0000v CF 9E 00148 108: VAB_ PDP_PUT_STREAM, ROUTN : | 
7 DD 00140 118: PUSHL (R7) : 2059 
g DD QO14F PUSHL (R6) : 
dD 13] PUSHL R : 
0 16 00153 JSB (ROUTN) 3 
04 00155 RET ; 2060 
; Routine Size: 342 bytes, Routine Base: EXCHSPDP_CODE + 09CB 


e 
33 


Small PDP-11 record structure routi 1b-5¢ -1984 -11 - 
pdp.put. binary acne Se ice 230071386 93:55:08 — HeXchinc SaeSexeepe:o350 Page 25) 


coe eat = poate =9bt Cexcg$a_ atc ee $Sref_bblock, ! COPY verb work area 
C 


= copy Ccopy$a_out_f $ref_bblock ! pointer to filb for an open Files-11 output file 


Ww 
Wn 


$debug_print_fao (‘entry, len=!UL, bufC0:19]="!AF’", .len, 20, .buf); 
: Get a pointer to the start of the next record after this one 


Sooooooeoeo 
SOLE 


next_rec = -buf_start + .len + 5; ! <sentinel-word> <length-word> <record-data> <checksum-byte 


WOARUNASSSLERFANLS SAVE 


ee ek a et a = — 


FRE 
No 


: See if the next record will fit in the buffer, EOF or advance the buffer if it isn't 


: ps ° SL 05A. ROUTINE pdp_put_binary (buf_start, buf_end, ctx : Sref_bblock, len, buf) : jsb_put = ZSBTTL ‘pdp_ 
: 19 164 

; 1989 ' 

; 13ee 5 } FUNCTIONAL DESCRIPTION: 

; 1338 es Add the next formatted binary record in the file 
3: 1994 ! INPUTS: 

+ 1388 oy 5 i buf_start - Pointer t byte in the buff 

3 ! uf_start - Pointer to next byte in the er 
s 1999 Ore : buf_end = Pointer fo one past the end of buffer 
: 1298 7 ! ctx - putous file content block 

3 3 074 : len = Length of the record to be put 

: e's 87? buf - Address of the record 

: 90¢ O79 i IMPLICIT INPUTS: 

Be BEB see the a1No expres 

3 ' se e 

: 3005 Fe acai seer 

; 809 08 i ; 

3; 2008 08 ! none 

: 2009 084 ! 

3; 2010 085 ! IMPLICIT OUTPUTS: 

3; 2011 086 ! 

3 org 087 ! see the BIND expression 

3; 201 088 ! 

3 2014 089 ' ROUTINE VALUE: 

: Bt? 090 : 

017 03 i — seas: success, false if any error 

> 2019 094 2 | ; 

; Ost +44 : error conditions will be signaled 

: 03 0 

: : § ; $dbgtrc_prefix ('pdp_put_binary> '); 

> 2025 REGISTER 

: : $ ce 

: 2028 3 . 

: 8 3 BIND 

: 2031 


<m 


Small PDP-11 record structure routines 18-56 Sep-1 


pdp_put_binary 


Owo 


VISWN—“OVOONOUES Ww 
a rr ir iar arr rr rs 


— 
Wirororonororororonon 


COONAOUS Wit 


; Routine Size: 


14-Sep=1 
IF (.mext_rec = 1) GEQU .buf_end 

RETURN pdp_buffer_check (.ctx, .out_filb); 
: Move the record to the buffer 
pdp_copy_binary_record (.len, .buf, .buf_start); 
Update the next record position and return 
RETURN pdp_buffer_update (.ctx, .next_rec); 
END; 


55 59 D0 0 
50 000000006 _ EF ge C1 00003 
50 60 00000044 F C1 000 
59 55 ae gt 4 
54 A E 00018 
59 FF = A4 YE OOOIC 
5A 59 D1 Bose 
OA iF Bons 
53 60 00 00025 
52 4 A 0 00028 
F78 1 0002C 
55 DD OO02F 1$: 
10 AE DD 00031 
10 Ag DD 000 
F902—SsCF g Fe 0037 
53 4 00 0003¢ 
52 04 AE 0 Booze 
F7CF 31 00043 


70 bytes, Routine Base: EXCHSPDP_CODE + 0B21 


AX-11 Bliss-32 V4.0 
EXCHNG.SRCJEXCPDP. 833: 


<m 


0000 PDP_PUT_BINARY:: 
MOVL RS 
, EACHSA -GBL. RO 


TX, R 
BOP _BUFFER_CHECK 
UF “START 
ae 
PDP _COPY BINARY_RECORD 


BP “BUFFER UPDATE 
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EXCHSPDP Small PDP-11 record structure routines 16-Sep-1984 01:11:4 AX-11 Bliss-32 V4.0-74 Page 63 E 
ribet pdp._put. fixed 1o2805-188 93:35:68 = FEN Chine sae exceye:o35- 9 283 V 
: 038 } 5 ROUTINE pdp_put_fixed (buf_start, buf_end, ctx : $ref_bblock, len, buf) : jsb_put = ZSBTTL ‘pdp_ 3 
; 1 \¢ : 
3 134 ' : 
3 2061 135 ¢ | FUNCTIONAL DESCRIPTION: 3 
: 50¢8 ; i INPUTS: ; 
3 2065 1 § i buf_start = Pointer to next byte in the buffer : 
; 140 ! uf_end = Pointer to one past the end of buffer é 
; 141 $ ctx - Output file context block : 
3 108 ! Len = Length of the record to be put 3 
: 34 Pe buf - Address of the record : 
; or 145 { IMPLICIT INPUTS: : 
: O78 149 ; see the BIND expression 3 
; 075 149 { QUTPUTS: ; 
; or 131 none 3 
; 979 138 { IMPLICIT OUTPUTS: ; 
; et 133 ; see the BIND expression ; 
; 088 139 t ROUTINE VALUE: 2 
; 085 139 true if success, false if any error ; 
; 087 161 t SIDE EFFECTS: : 
; 2089 18 i error conditions will be signaled : 
1 Beas B hee ! 
; a4 166 $dbgtrc_prefix ("pdp_put_fixed> '); 3 
> 2094 168 2 REGISTER : 
3; 2095 199 rec_size, 3 
: 2096 170 next_rec, ! Pointer to look next time. : 
3; 2097 171 tmp 3 
$099 198 ; : 
: 100 174 2 BIND F 
3: 2101 175 copy = exch$a_gbl Cexcg$a_copy pert: $ref_bblock, ! COPY verb work area ‘ 
3 106 sn out_filb = copy Ccopy$a_out_filb : Sref_bblock ! pointer to filb for an open Files-11 output file ; 
: 21 178 . ; 
; \R? 3179 S$debug_print_fao (‘entry, len=!UL, buf(0:19]=""!AF’", .len, 20, .buf); : 
s 7 : 
$ ; ' 1 rec_size = .out_filb Cfilb$l_fixed_len); ; 
: 1% : : : Get a pointer to the start of the next record after this one 3 
; it ! 5 next_rec = .buf_start + .rec_size; 3 
: 118 1 $ ! See if the next record will fit in the buffer, EOF or advance the buffer if it isn't : 


EXCHSPDP 
v04-000 
3: 2114 
3 13? 
; 7 
: 118 
: 2120 
3 i 1 
: 21 1 
3; 2124 
: 2125 
3: 2126 
3: 2127 


OS 


; Routine Size: 


te 


Small PDP-11 record structure routines Sep-1984 AX-11 Bliss-32 V4.0-74 
pdp_put_fixed 18-Sep-1984 9}: 4336 EXCHNG.SRCJEXCPDP.832; 
1 ! 
if IF (.mext_rec = 1) GEQU .buf_end 
13 RETURN pdp_buffer_check (.ctx, .out_filb); 
138 Move the record to the buffer 
132 CHSCOPY (.Len, .buf, -out_filb Cfilb$Sb_pad_char], .rec_size, .buf_start); 
199 Update the next record position and return 
199 RETURN pdp_buffer_update (.ctx, .next_rec); 
$6 END; 
50 00000000G_ EF 04 C1 00000 PDP_PUT_FIXED:: 
ADDL #4, EXCHSA_GBL, RO 
50 60 00000044 8F C1 00008 ADDL3 #68 (RQ), RO 
55 60 D0 9019 OVL (ROS, R 
54 35 AS DO 0001 OvL. 53(R5), REC_SIZE 
56 59 54 C1 90017 ADDL3 REC_SIZE, BOF_START, NEXT_REC 
53 FF Ag 9€ 00018 MOVAB -1(R6), R3 
SA 53 D1 0001F CMPL 3, BUF_END 
OA 1F 00022 BLSSU.1$ 
53 55 00 00024 MOVL RS, R3 
52 04 AE go 0027 MOVL CTX, R2 
F76E 31 00028 BRW PDP BUFFER. CHEC K 
39 AS OC BE 08 ag 2c O¢ E 1$ MOVCS LEN; @BUF, 57(R5), REC_SIZE, (BUF _START) 
53 $2 DO 00037 MOVL NEXT_REC, R3 
5 046 AE B0 4 A MOVL CTX, R 
F78E 31 OO03E BRW PDP_BUF FER_UPDATE 
65 bytes, Routine Base: EXCHSPDP_CODE + 0B67 
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gL oont ROUTINE pdp_put_stream (buf_start, buf_end, ctx : Sref_bblock, len, buf) : jsb_put = ZSBTTL ‘pdp_ 
+ 


FUNCTIONAL DESCRIPTION: 
Add the next stream record in the file “5 


INPUTS: 
buf_start - Pointer to next byte in the buffer 
buf_end = Pointer to one past the end of buffer 
ctx = Output file context block 
len = Length of the record to be put 
buf - Address of the record 


IMPLICIT INPUTS: 
see the BIND expression 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
see the BIND expression 
ROUTINE VALUE: 
true if success, false if any error 
SIDE EFFECTS: 
error conditions will be signaled 


ee eee ee eee ee, | 
+ 


$dbgtrc_prefix ('pdp_put_stream> '); 


REGISTER 
actual_len, 
next_rec, 
tmp 
BIND 
copy = exch$a_gbl Cexcg$a_copy work]: $ref_bblock, ! COPY verb work area 
out_filb = copy Ccopy$a_out_filb] : $ref_bblock ! pointer to filb for an open Files-11 output file 


$debug_print_fao (entry, len=!UL, buf(0:19]=""!AF'", .len, 20, .buf); 

: Get a pointer to the start of the next record after this one 

next_rec = .buf_start + .len + 2; ! Assume record plus <CR><LF> 

! See if the next record will fit in the buffer, EOF or advance the buffer if it isn't 
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pdp_put_stream 
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ir (.next_rec - 1) GEQU .buf_end 

RETURN pdp_buffer_check (.ctx, .out_filb); 
Move the record to the buffer 
actual_len = pdp_copy_stream_record (.len, .buf, .buf_start); 
Update the next record position and return 
RETURN pdp_buffer_update (.ctx, .buf_start + .actual_len); 
END; 


54 59 D0 00000 POP_PUT_STREAM: sos 
50 000000006 EF 04 C1 00003 ADDL3 a EXCHSA _GBL, RO 
51 60 00000044 8F C1 000 ADDL Ww) 
59 54 08 AE C1 0001 ADDL i en Bur START, RO 
50 02 a9 3 0018 MOVAB (Rd), NEXT_REC 
0 pd? 0001C DECL 
SA 0 01 O001E CMPL RO, BUF _END 
OA 1F 00021 BLSSU. 1 
53 61 DO 00023 MOVL (R1), R3 
52 AE p0 0026 MOVL X, 
F72E 31 OOO2A BRW PDP _BUFFER. CHECK 
54 DD 0002D 1$ PUSHL BUF _START 
10 AE DD 0002F PUSHL BUF 
10 AE DD 000 : PUSHL i 
F 8BD cf FB 000 CALL ‘ ypoP COPY_STREAM_RECORD 
53 4 0 Ci OOO3A ADDL L_CEN, BUF_START, R3 
52 04 AE p0 0003 MOVL act 
F749 31 00042 BRW PDP_ BUF FER_UPDATE 
69 bytes, Routine Base: EXCHSPDP_CODE + OBAS 
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pdp_put_stream 14-Sep-1 EXCHNG.SRCJEXCPDP.B32 
; 2201 1 END 
3 350 337 0 ELUDOM 
»EXTRN LIBSSIGNAL, LIBSSTOP 

; PSECT SUMMARY 
; Name Bytes Attributes 
: EXCHSPDP_CODE 3053 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Re eit ae so rar ee Symbols ------- = Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$D0UA28: CSYSLIBILIB.L32;1 18619 3 0 1000 00:01.8 
; 255$DUA28: CEXCHNG.O8JJEXCLIB.L32;1 1151 99 8 79 00:01.3 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:EXCPDP/OBJ=OBJ$:EXCPDP MSRC$:EXCPDP/UPDATE=(ENHS$:EXCPDP) 
; Sizes 3053 code + 0 data bytes 

un Time: 7.4 


ple Time: 02:38.6 
Lines/CPU Min: 37 
oneness Py hie 21756 
ne | Used: 187 pages 
Compilation Complete 
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